两个小问题

tianliangle

1、如何获取图纸中所有扩展数据的注册名称?


2、如何获取当前的捕捉状态？

meflying

1.(mapcar 'car (cdr (assoc -3 (entget (car (entsel)) '("*")))))


2.(getvar "osmode")

CADghost

1.?


2(setq os (getvar "osmode"))

tianliangle

1.可以写为 (setq os (mapcar 'car (cdr (assoc -3 (entget (car (entsel)) '("*"))))))。但是要求点选。怎么改才可以自动选取所有的图元，并且删除掉重复的注册名称呢？？？

meflying

你会多少？这样真的很难回答，等我回答了这个，呆会又出来新的，为何不把你要做的事情一次说明白呢？

龙龙仔

tianliangle发表于2004-8-6 16:44:001.可以写为 (setq os (mapcar 'car (cdr (assoc -3 (entget (car (entsel)) '(\"*\"))))))。但是要求点选。怎么改才可以自动选取所有的图元，并且删除掉重复的注册...

(setq APP_LIST NIL
A NIL
)
(while (setq A (tblnext "appid" (null A)))
(setq APP_LIST (append APP_LIST (list (cdr (assoc 2 A)))))
)

tianliangle

感谢龙龙仔，程序很好，谢谢。 至于meflying的疑问，是这样的；我目前只能达到抄用的水平，可以进行一些简单的更改，往往提出一个问题并得到回答之后才发现---哇！原来这样不可以的!!!来来回回写几次也没有解决，不得已再次提问，还请大家原谅。来明经这么长时间了，很感谢大家的帮助。感谢各位高手并请你们原谅。 tianliangle