高手门请问如何用lsp在指定的图层上画上一条直线
www.dimcax.com
高手门请问如何用lsp在指定的图层上画上一条直线高手们帮帮忙,
请问: 如何用lsp在指定的图层上画上一条直线?
eg. (command "_line" p1 p2 "") 将其画在名称为"123"的图层上? 谢了!
d
(setvar "clayer" "123") 通过设置当前图层系统变量,使123图层置为当前层即可。
(entmake '( (0 . "circle")
(62 . 1)
(10 4.0 4.0 0.0)
(40 . 1.0)
(8 . "123")
)
)
在123的层里面建立一个,圆心为 (4 4 0) 半径为1 红色的圆
供参考,这个函数的用处很大,看帮助或者其他书籍吧
工资真的要涨了,心里更加爱党了,能给孩子奖赏了,见到老婆敢嚷了,敢尝海鲜鹅掌了,闲时能逛商场了,遇见美女心痒了,结果物价又涨了!
d
or
(vlax-put-property (vlax-ename->vla-object (entlast)) 'layer "123" )
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
or
(vla-put-layer (vlax-ename->vla-object (entlast)) "123")
等等…………
d
呵呵,谢谢大家了,好人一生平安!