Camello 发表于 2009-12-29 09:34

Ref: 5楼
请上传个测试用的文件 (*.dwg)
[执行前后两个比对图]

buwawa 发表于 2009-12-31 16:34

看不懂，帮顶了

eric858180 发表于 2009-12-31 20:03

值得我们小辈学习学习。谢谢各位前辈！！:victory: :victory:

shahoy 发表于 2010-1-14 23:43

各位高手帮忙看看这个吧，难道没有解决办法吗？
看起来比较简单的事情，可怎么才能实现呢？

shahoy 发表于 2011-11-22 18:50

这是一个很难很难的题，哪位大侠有能力解决啊！

方今年 发表于 2011-11-22 18:59

能人啊，快快出现吧？解这道题等了近2年了。

Camello 发表于 2011-11-22 19:34

一个小程序....

(Defun Test-A (x / Pts)
   (setq Dat (entget x)
          po (cdr (assoc 10 Dat))
          rr (cdr (assoc 40 Dat))
         i0
   )
   (repeat 64
   (setq pts (cons (polar po (* aa i) rr) pts)
             i (1+ i)
   ) )
   (setq ss2 (ssget "cp" pts)
          mm (- (sslength ss2) 2)
   )
   (ssdel x ss2)
   (while (setq ex (ssname ss2 mm))
   (entdel ex)
   (setq mm (1- mm))
   )
)

;;; For test only
(Defun C:Test ()
   (setq ss (ssget "X" '((0 . "CIRCLE") (62 . 1)))
         aa (/ Pi 32)
         nn (1- (sslength ss))
   )
   (while (setq ee (ssname ss nn))
   (Test-A ee)
   (setq nn (1- nn))
   )
)   

lhd09212020 发表于 2011-11-23 22:52

鸭梨大啊。。。。。

f16217 发表于 2012-3-4 16:54

回复 3# hebei

是这样的
页: 1 [2]
查看完整版本: 一个很困难的问题，请教各位大侠！