[LISP]关于group name

aaddff

1. [QUOTE]我要做统计

复制代码

1. 生成实体时在其中的一个上面增加 XDATA，选择时不是更方便？ [/QUOTE]

复制代码

用“增加 XDATA”的方法好象是不可以的，因为有时由于需要我要改变其中一些孔的图层，其实改变之后它就不属于我的统计之列了，还用“增加 XDATA”的话，就有问题了

无痕

加ｘｄａｔａ与改变图层无关

spring

aaddff发表于2004-5-7 13:05:00to spring: 当你的孔移位后，能不能实现坐标跟着变啊？ 或执行一条命令后让其坐标改变啊？

不行 不好意思忘了加附件
无痕说的对加 xdate 跟图层没关系(你可以这样啊,你的孔怎么改变螺丝只有一个啊你可以在指定一个图层生成一个螺丝实体啊)，等我晚上写一个给你。你的 *.exe 文件是什么软件做的，能否上传上来

spring

;;;功能 :增加扩展数据
;;;By-Spring
;;;2004/05/07
;;;_______________________________________________________
(defun c:hh (/ ed en tag exdata)
(setq ed (entlast)) ;取得最后一个图元名称
(setq en (entget ed)) ;取得图元的资料
(setq tag "螺丝")
(regapp "MY_TAG")
(setq
exdata
(list (list -3 (list "MY_TAG" (cons 1000 tag))))
)
(setq en
(append en exdata)
) ;增加扩展数据
(entmod en) ;改变图元资料
(princ)
)
;;;_______________________________________________________
(defun c:hc (/ ss n count en ed tag)
(setq
ss
(ssget '((0 . "CIRCLE,LWPOLYLINE,LINE") (-3 ("MY_TAG"))))
)
(setq n 0)
(setq count (sslength ss))
(while (> count n)
(setq en (ssname ss n)) ;取得图元名称
(setq ed (entget en '("MY_TAG")))
(setq tag (cdr (cadr (cadr (assoc -3 ed))))) ;取得资料
(setq n (1+ n))
)
(command "_.TEXT" pause 5 0 (strcat tag " " (itoa count)))
(princ)
)
;;;_______________________________________________________

aaddff

今天文件怎么传不上来？？搞不懂


要不，你告诉我你qq或mail吧


这个扩展数据，你们可能没明白我的意思，我是说我给他做了regapp之后，比如是螺丝，经copy多次后，我想把其中的某个比方改为弹簧孔，但我统计螺丝的时候还是会把那个弹簧孔选到的

aaddff

好象能上传文件，我的那个不行，是太大了吗？压缩文件579k


spring ：


好程序啊，支持


有几点不明白，请指教


螺丝的长度不让修改，不能设定，有何用处？


计算功能，有什么用啊？没看到


孔的大小不能自行设定，很遗憾！！！

spring

要把螺丝孔改为弹簧孔???你不能再重新画一个吗??? 如果你实在要改就把扩展数据一起改过来啊??? 螺丝长度根本就没有用的,我当时写的时候我想既然有螺丝大小那当然也要有螺丝长度啊. 不过当时能力有限写不出来所以就一直放在那里了.计算功能可以查询孔的大小啊.孔的大 小不能设定我在前面已经说过,我有想过改,可是毕竟能力和时间有限. 在写完上面的程序后我有个想法那就是在我的螺丝绘制里加入一个在指定的层里生成一个 螺丝实体加入扩展数据(螺丝,长度)如果长度可以根据模板厚度自行计算长度就更好了,这样 子画好图后就可以输出零件清单了.想的是简单做起来就困难了.呵呵! QQ 65739174 Email : hch@jce.net.cn 下面是我前两天写的模板绘制.

功夫佬

不错，先下来研究下