求救：如何新建一个图层，并在新建图层里画N条水平线！

msi701 · 发表于 2004-5-20 10:26:00

BDYCAD · 发表于 2004-5-20 10:40:00

參考
(command "layer" "n" "001" "")
(setq i 0)
(repeat 50
(setq a (list 0 i)
b (polar a 0 100))
(command "line" a b"")
(command "chprop" (entlast) """la" "001" "")
(setq i (1+ i)))

msi701 · 发表于 2004-5-20 12:42:00

非常感谢

求救：如何新建一个图层，并在新建图层里画N条水平线！

发表回复

精选推荐