CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
12
返回列表 发新帖
楼主: shahoy

[求助] 一个很困难的问题,请教各位大侠!

[复制链接]
发表于 2009-12-29 09:34 | 显示全部楼层
Ref: 5楼
: H2 H) O  m( i; R1 W请上传个测试用的文件 (*.dwg) 1 q# \) l0 I5 F% e& |
[执行前后两个比对图]
发表于 2009-12-31 16:34 | 显示全部楼层
看不懂,帮顶了
发表于 2009-12-31 20:03 | 显示全部楼层
值得我们小辈学习学习。谢谢各位前辈!!
 楼主| 发表于 2010-1-14 23:43 | 显示全部楼层
各位高手帮忙看看这个吧,难道没有解决办法吗?; F7 }# A( W$ a! [9 J
看起来比较简单的事情,可怎么才能实现呢?
 楼主| 发表于 2011-11-22 18:50 | 显示全部楼层
这是一个很难很难的题,哪位大侠有能力解决啊!
发表于 2011-11-22 18:59 | 显示全部楼层
能人啊,快快出现吧?解这道题等了近2年了。
发表于 2011-11-22 19:34 | 显示全部楼层
一个小程序....
* _$ h: b* y  V* o0 y! L. h2 M& [( D! f* p3 p& j, G1 W* q! Y' b5 K5 [
(Defun Test-A (x / Pts)
# f' m! z& @! s( A6 p6 x   (setq Dat (entget x)
. [5 Q* M# y( i8 C- ~/ m7 f          po (cdr (assoc 10 Dat))/ V, r* X9 z+ l3 G  d7 h) f: N
          rr (cdr (assoc 40 Dat))
2 a* \. F6 Q$ [5 k           i  0
8 J" L: g, {  h6 q# @2 c   )! y& G9 O# Y9 E. q1 A
   (repeat 645 U7 T1 y& E0 H4 [0 o
     (setq pts (cons (polar po (* aa i) rr) pts)* ]4 |$ j) d& M$ y9 t( I
             i (1+ i)
8 J% Z: L5 v6 H/ A; ]* M( t   ) )
, x; L$ J3 F8 X0 ?   (setq ss2 (ssget "cp" pts); a* k  R9 ^8 z4 y% A; ~
          mm (- (sslength ss2) 2)
% G1 R' O% h+ o   )6 e! \7 ~. {. j4 h7 L
   (ssdel x ss2)' G* {) l; _1 A! X0 s9 K2 I
   (while (setq ex (ssname ss2 mm))
: A) d7 Z. e$ E9 V" `0 U2 `     (entdel ex)
; I+ b: L0 g; ]3 k1 D     (setq mm (1- mm))
1 `( {4 s7 g  {6 I/ x. V9 N; a   )" K4 I6 _' C( T0 J! `/ B1 u& `& l
), u; [- o" |3 z2 x+ x0 J
2 N' e& \2 d1 u
;;; For test only, J4 u5 Y& V8 R* G
(Defun C:Test ()9 g2 F5 ^1 u- C7 F" _1 O$ o: @
   (setq ss (ssget "X" '((0 . "CIRCLE") (62 . 1)))
/ z2 _' P# t/ X4 r2 I5 ~9 @# q         aa (/ Pi 32)
0 o' p6 L# O) p7 H! o/ i! N' T: S$ h         nn (1- (sslength ss))# T( I+ H1 z8 ]; w7 v
   )
$ m# Z& O- B) r# V0 f2 Q8 L   (while (setq ee (ssname ss nn))# M* T. i1 W( w; Y
     (Test-A ee)" o2 _0 O* Z. z, p3 L* L2 @
     (setq nn (1- nn))
' x5 Q. L4 d8 D4 @3 {   )  
! o+ X" }3 H3 C  r)     
+ O9 P1 V  G* l  X7 J+ t% b1 Q0 M $ z* Z. r% W# x5 Z; `; ^( r1 J

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
发表于 2011-11-23 22:52 | 显示全部楼层
鸭梨大啊。。。。。
发表于 2012-3-4 16:54 | 显示全部楼层
回复 3# hebei 4 I8 A+ z- A/ Z0 e/ ^9 C

; t) q" p' Z  q% N, W) D6 C) v是这样的
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-2-19 06:42

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表