自动图层

啵浪鼓 · 发表于 2011-5-23 02:38:56

本帖最后由啵浪鼓于 2011-5-23 02:54 编辑

挺好的反应器
解冻/解锁
(if (/= (cdr (assoc 70 layerdata)) 0)
   (progn
      (setq layerdata (subst
                        (cons 70 0)
                        (assoc 70 layerdata)
                        layerdata
                     )
      )
      (entmod layerdata)
   )
)

啵浪鼓 · 发表于 2011-5-23 22:03:39

本帖最后由啵浪鼓于 2011-6-8 01:07 编辑

挺好的反应器!!!

linheyuanpcb · 发表于 2011-5-24 15:34:43

为什么出现？ no function definition: XLR-END 谢谢

石井鱼 · 发表于 2011-5-24 16:21:40

挺不错的程序

13579 · 发表于 2011-5-24 19:42:03

很实用,谢谢版主源码。

啵浪鼓 · 发表于 2011-5-24 22:47:40

本帖最后由啵浪鼓于 2011-6-8 01:07 编辑

挺不错的程序

linheyuanpcb · 发表于 2011-5-25 11:27:38

回复啵浪鼓的帖子

可以使用图层判断，如果不存在则新建，

啵浪鼓 · 发表于 2011-5-25 21:48:21

本帖最后由啵浪鼓于 2011-6-8 01:07 编辑

回复 linheyuanpcb 的帖子

目前程序可以创建图层

linheyuanpcb · 发表于 2011-5-26 10:10:20

(if (not (tblobjname "layer" "p3"));
   (entmake
   (list '(0 . "LAYER") ;
   '(100 . "AcDbSymbolTableRecord") ;_
   '(100 . "AcDbLayerTableRecord") ;_
   (cons 2 "p3") ;层名
   '(70 . 0)
   (cons 62 3) ;cons 62 +颜色代码
   (cons 6 "CONTINUOUS") ;线型设置
   )
   )
)
可以呀，你参考下，或者你再找其它方法呀

669423907 · 发表于 2011-6-2 00:53:46

都是高手的程序！非常好！

账号		自动登录	找回密码
密码			注册