引线出来注写文字
;;------------------------------------------------------------------------------------(defun C:get2()
(setvar"osmode" 32767 )
(setq p (getpoint "\nfirst blood"))
(command "pline" p "w" "30" "30" "@250<45""")
(setq ps p)
(setq pt (list p))
(while p
(setq p (getpoint "\nand then "))
(command "pline" p "w" "30" "30" "@250<45" "")
(setq pt (append pt (list p)))
)
(setq pg (getpoint "\nsummary"))
(setq n (length pt))
(setq index 0)
(repeat n
(setq p1 (nthindex pt)
index (1+ index)
p2 (nthindex pt)
)
(command "line" p1 pg p2 pg"")
)
(setq point_x1 (car ps))
(setq point_x2 (car pg))
(princ ps)
(princ point_x1)
(princ point_x2)
(if(> point_x2 point_x1)
(progn
(command "line" pg "@8000<0""")(command"-style""tssd" "" "1400" "" "" "" "" "")
(command"text" pg "0" "Nil："))
(progn
(command "line" pg "@8000<180""")(command"-style""tssd" "" "1400" "" "" "" "" "")
(command"text" "j" "r" pg "0" "Nil："))
)
(setvar "clayer" #k)
(setvar "osmode" #os)
)
;;------------------------------------------------------------------------------------
运行出现：
and then未知命令“W”。按 F1 查看帮助。
未知命令“30”。按 F1 查看帮助。
未知命令“30”。按 F1 查看帮助。
未知命令“@250<45”。按 F1 查看帮助。
请大神指导！
页:
[1]