简约而不简单

ttmc · 发表于 2006-11-27 16:57:00

我遇到一个难题,我想写一个自动加注公差的程序.我选择的先取得数据,然后取消尺寸关联,再写入内容.可是,当选择一个直径尺寸文本后,却将尺寸前缀%%c给清除了.请大侠指点,如何在autolisp中知道一个尺寸值是否带有%%c的前缀呢?

我知道dimpost是关于全局的前后缀的变量名,可如何反映所选择的某一个尺寸文本的值呢?

我查了很多资料,可没有介绍autolisp这方面的知识,有一些是vlisp的,我看不懂.请高手们指点一下,在下不胜感激! 不会是autolisp没有这个功能吧?

abcxyz0517 · 发表于 2007-1-4 14:54:00

密切关注中

我也算一个～

SunSpring · 发表于 2007-1-5 19:37:00

这样的贴子真是精彩,大家继续,加油.

zouwenhua · 发表于 2007-2-28 09:55:00

第一次上明经，同意，我也看不懂，希望大侠们照顾下菜鸟们，加个注解吧

hhc · 发表于 2007-3-13 14:28:00

尺寸标柱是一个"块",先取得"块"名,再在这个块里寻找"MTEXT",．．．

dosett · 发表于 2007-6-18 20:12:00

支持啊

jxlsp · 发表于 2007-7-23 22:16:00

支持！！

bikeboy · 发表于 2007-8-11 03:54:00

都来支持吧

caiqs · 发表于 2007-8-30 10:04:00

;;;选择集变表 2007/8/30 师兄 QQ 361865648
(defun ss->lst (ss / retu)
(setq retu (apply 'append (ssnamex ss)))
(setq retu (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) retu))
)

;;;测试
(setq ss (ssget));_构建选择集
(princ (ss->lst ss))

caiqs · 发表于 2007-8-30 10:15:00

;;;表变选择集 2007/8/30 师兄 QQ 361865648
(defun lst->ss(lst / ss)
(setq ss(ssadd))
(last(mapcar '(lambda (x) (ssadd x ss)) lst)))

;;;测试
(setq lst(list (car(entsel)) (car(entsel))))
(lst->ss lst)

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