UC知道cad lisp二次开发实例
来源：百度知道 编辑：UC知道 时间：2024/05/23 14:29:32
各位大虾有没有实例？比最简单级别的复杂些的~
;(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))