习作-序号球-06-05-29版本

SunSpring

龙龙仔发表于2006-5-19 8:00:00 网站限制了 附件:获得最后一批生成的图元26706

龙老大,这次没有源码吗,刚好有个程序也是要用到这个,可不可以给个源码参考一下.

龙龙仔

xxsheng发表于2006-5-19 16:08:00以下是引用龙龙仔在2006-5-19 16:01:18的发言：<SPAN style=\"FONT-SIZE: 10.5pt; mso-ascii-font-family: Ari...

=>(0 . SEQEND)

1. 元件标记聚合线顶点（顶点类型名称）的结尾，或具有属性值(由 66 群码表示且在插入图元中不为 0 )属性图元(属性类型名称)的结尾。这个码不会储存在 DXF 档案中。

复制代码

;|
1.COPY一堆序号球后,再UNDO,OOPS,REDO会有提示
2.BLOCK OR WBLOCK后,再UNDO,OOPS,REDO会有提示(我的程序也会)
3.BLOCK OR WBLOCK也会有提示(我的程序也会)
4.删除引线OR序号球也会有提示
5.同时移动序号球及引线也不是想要的
|;

龙龙仔

龙老大,这次没有源码吗,刚好有个程序也是要用到这个,可不可以给个源码参考一下.

=>论坛中到处都是,楼主程序中也有...

xxsheng

龙龙仔发表于2006-5-22 12:31:00以下是引用龙龙仔在2006-5-19 16:...

1. 5.同时移动序号球及引线也不是想要的

复制代码

这个问题我真的不知道怎么解决了,,,期待斑竹能有个思路!!

龙龙仔

了解移动顺序对物件的关係,想办法停止某些反应器!

狂刀无痕

我觉得可以设个开关变量来控制,仅限两个物体之间互为联动。如：联动变量 doit
(setq doit T);加载反应器时设。
联动体为ab，
反应器：对a和b

2. (defun ccc (vlror bkcall)
3. （if doit
4.      (progn(setq doit nil ) 联动程序)
5.      (steq doit T)
6. )

(defun ccc (vlror bkcall) （if doit      (progn(setq doit nil ) 联动程序)      (steq doit T) )

SunSpring

龙龙仔发表于2006-5-22 12:34:00龙老大,这次没有源码吗,刚好有个程序也是要用到这个,可不可以给个源码参考一下. =>论坛中到处都是,楼主程序中也有...

首先非常感谢龙版主的回复。
在论坛中并没有看到有类示的程序，关于楼主的程序也看了，用了那两段，但没有做用，所以放弃了。
下面是我之前写的一段程序

2. (COMMAND ".MIRROR" ENTGRP "" SPT EPT "N")
3. (SETQ SSENTGRP (SSADD))
4. (SETQ ENTDATALIST NIL)
5. (REPEAT (SSLENGTH ENTGRP)
6. (SETQ ENTDATA (ENTGET (ENTLAST)))
7. (COMMAND "_.ERASE" (ENTLAST) "")
8. (SETQ ENTDATALIST (APPEND ENTDATALIST (LIST ENTDATA)))
9. )
10. (FOREACH ENTDATA ENTDATALIST
11. (SETQ SSENTGRP (SSADD (ENTMAKEX ENTDATA) SSENTGRP))
12. )

复制代码

但是对于剖面线对象会有问题，不知道思路是否正确，请龙版主给个思路。
谢谢龙版主，望复。

龙龙仔

;;楼主的函数
(defun AO:GETLASTENT (*LASTENT* / NEWENTSEL EN) ;ENT->*LASTENT*
  (if (/= NIL *LASTENT*)
    (progn
      (setq NEWENTSEL (ssadd))
      (while (/= (setq *LASTENT* (entnext *LASTENT*)) NIL)
 (setq EN (entget *LASTENT*))
 (if (not (member '("0 . SEQEND") EN));不完整,欠一些物件没有去除
   (ssadd *LASTENT* NEWENTSEL)
 )
      )
      (setq *LASTENT* NIL)
    )
  )
  NEWENTSEL
)

;;只是例子,没有除错
(defun C:TT (/ ENDLAST SUM_MIRROR)
  (setvar "CMDECHO" 1)
  (setq ENDLAST (entlast))
  (command ".MIRROR" (ssget) "" PAUSE PAUSE "N")
  (command "_.MOVE" (AO:GETLASTENT ENDLAST) "")
)

lifesun

难得看到思路如此清晰的源码公布,希望版主对这类帖多加奖励,促使以后大家能发表一些交流与学习性更高的内容,而不是一些加密的程序.

Ea

为什么不把球和线做成组呢？