;(DEFUN C:IX();穿线孔
; (setq slay (getvar "clayer"))
; (command"-INSERT" "IX" "\\" "1" "1" "0""")
; (princ))
(defun c:vl();竖直直线
(command "_.XLINE" "v" pause)
(princ)
)
(defun c:hl();水平直线
(command "_.XLINE" "h" pause)
(princ)
)
(DEFUN C:jj();串线
(setvar "cmdecho" 0)
(setvar "cmddia" 0)
(setq jj (ssget))
(command "_pedit" "m" jj "" "j" "1" "")
(setvar "cmdecho" 1)
(setvar "cmddia" 1)
(princ))
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024