(command "line" (list x0 (- y0 5)) (list x0 (+ y0 h2 5)) "")
这样只能画连续的直线
我要画 点划线 怎么更改？
------解决方案--------------------------------------------------------
CELTYPE
设置线型
------解决方案--------------------------------------------------------
用-layer命令自动新建图层，设置线型，设为当前图层就可以了
------解决方案--------------------------------------------------------
(defun c:test ();定义AutoCAD命令行命令
(setq x0 100
y0 100
h2 100
)
(command "-layer" "N" "中心线" "lw" "0.25"
"中心线" "c" "1" "中心线" "L"
"ACAD_ISO10W100" "中心线" "S" "中心线"
""
);s为设置当前层
(command "line" (list x0 (- y0 5)) (list x0 (+ y0 h2 5)) "")
)