标注整理v2.0源程序

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

(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

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

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

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

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

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

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

支持，楼主好样的，

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

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

很好的楼主啊，赞一个。

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

不错

，支持楼主、

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

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

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

好东西，支持顶

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

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

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

标注整理v2.0源程序

点评