自定义pline线的颜色图层

柴月二号

我想用lisp 实现画pline线      图层为“辅助”  颜色为 “2”   请高手指点

1.（command “pline”）
2.（8 . “辅助”）
3.（62 . 2）
利用1.2.3请指点

柴月二号

自顶一贴,求老师指点

wzg356

(defun c:nmpl ()
(If (= (Tblsearch "layer" "辅助") nil)
    (command "-layer" "n" "辅助" "s" "辅助" "");;;定义图层
    (command "-layer" "s" "辅助" "")
)
(command "CECOLOR" "2")
(command "pline")
(while(/=(getvar"cmdactive")0)
        (command pause)
)
)

柴月二号

wzg356 发表于 2015-12-24 18:35
(defun c:nmpl ()
(If (= (Tblsearch "layer" "辅助") nil)
    (command "-layer" "n" "辅助" "s" "辅助 ...

非常感谢，wzg365前辈

香田里浪人

(defun c:dypl ()
(If (= (Tblsearch "layer" "辅助") nil)
    (command "layer" "M" "辅助" "C" "2" "" "LT" "CONTINUOUS" "" "");设置一个图层
   )
(command "pline")
(while(/=(getvar"cmdactive")0)
        (command pause)
)
)

知行ooo李肖坪

同步学习了，谢谢…………

柴月二号

香田里浪人 发表于 2015-12-25 18:43
(defun c:dypl ()
(If (= (Tblsearch "layer" "辅助") nil)
    (command "layer" "M" "辅助" "C" "2" "" ...

谢谢香里前辈