高手门请问如何用lsp在指定的图层上画上一条直线

lxl13596

高手们帮帮忙，
请问： 如何用lsp在指定的图层上画上一条直线？
eg.    (command "_line" p1 p2 "")  将其画在名称为"123"的图层上?  谢了!

ljttjl

(setvar "clayer" "123") 通过设置当前图层系统变量，使123图层置为当前层即可。

phoenixdjq

(entmake         '(  (0 . "CIRCLE")           

                       (62 . 1)                    

                       (10 4.0 4.0 0.0)            

                       (40 . 1.0)
   
                        (8 . "123")            

                       )

      )

在123的层里面建立一个，圆心为 （4 4 0）   半径为1   红色的圆

供参考，这个函数的用处很大，看帮助或者其他书籍吧

nonsmall

Or

(Vlax-Put-Property (Vlax-Ename->Vla-Object (entlast)) 'Layer "123" )

luowy

or

(vla-put-layer (Vlax-Ename->Vla-Object (entlast)) "123")

等等…………

lxl13596

呵呵，谢谢大家了，好人一生平安！