柴月二号 发表于 2015-12-24 17:58:24

自定义pline线的颜色图层

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

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

柴月二号 发表于 2015-12-24 18:01:08

自顶一贴,求老师指点

wzg356 发表于 2015-12-24 18:35:32

(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)
)
)

柴月二号 发表于 2015-12-24 19:00:01

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

非常感谢，wzg365前辈

香田里浪人 发表于 2015-12-25 18:43:13

本帖最后由 香田里浪人 于 2015-12-25 19:00 编辑

(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 19:22:18

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

柴月二号 发表于 2015-12-25 23:10:00

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

谢谢香里前辈
页: [1]
查看完整版本: 自定义pline线的颜色图层