啵浪鼓 发表于 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

都是高手的程序！非常好！
页: 1 [2] 3 4
查看完整版本: 自动图层