社区 › AutoLISP/Visual LISP 编程技术 › 标注整理v2.0源程序

Rafier 发表于 2011-11-26 14:04:13

(defun get_layer (/ layer_info layers) ; 返回当前图纸中图层信息
(setq layer_info (tblnext "layer" t))
(while (/= layer_info nil)
    (setq layers (append
                   layers
                   (list layer_info)
               )
    )
    (setq layer_info (tblnext "layer"))
)
layers
)
(defun get_layer_linetype (linetype / ly_info ly_infos tmplist) ; 提取包含指定线型的图层
(setq ly_Infos (get_layer))
(foreach ly_info ly_Infos
    (if (= linetype (substr (cdr (assoc 6 ly_info)) 1 (strlen linetype)))
      (setq tmplist (append
                      tmplist
                      (list (CDR (assoc 2 ly_info)))
                  )
      )
    )
)
tmplist
)

yangjunyi 发表于 2011-11-27 09:55:23

很不错的程序，支持楼主、

pop159 发表于 2011-11-27 11:14:44

不错，谢谢提供。是否可以增加支持"dimaligned"功能？还是再次表示感谢。

andyzha 发表于 2011-11-27 13:06:40

简洁，使用，高效的程序。谢谢你的分享

xjf 发表于 2011-11-27 15:48:20

   支持，楼主好样的，

   能否做出自动线性标注的程序，谢

vlisp2012 发表于 2011-11-27 21:15:08

很好的楼主啊，赞一个。

lohas1118 发表于 2011-11-28 11:31:58

不错，支持楼主、

flowerson 发表于 2011-11-28 17:39:18

模型作图，布局标注的有问题！不知各位呢？

guobird1 发表于 2011-11-28 22:46:35

好东西，支持顶

linshiyin2 发表于 2011-11-29 09:31:47

很爽，比1.0好多了，要是加上能够整理斜标注就好了，飞诗也有标注整理，圆半径也可以自动规避图形整理合适的位置标注

查看完整版本: 标注整理v2.0源程序