明经CAD社区's Archiver
社区
›
AutoLISP/Visual LISP 编程技术
› 求一个画多段线的命令
664571221
发表于 2016-4-6 18:55:30
求一个画多段线的命令
输入命令DDX,画线框为60,颜色为211的多短线。
流动的清泉
发表于 2016-4-8 11:32:33
看到了,就来冒个泡!
zhaohd2003
发表于 2016-4-26 11:59:08
(defun c:ddx()
;;取得当前颜色为#os6
(setq #os6 (getvar "Cecolor"))
(setvar "cecolor" "211")
(command "_pline" (getpoint) "w" 60 60)
;颜色还原
(setvar "Cecolor" #os6)
)
页:
[1]
查看完整版本:
求一个画多段线的命令