[求助]急求高手能编一下把图中所有圆环换成圆环外径大小圆

飞鹰158

急求高手能编一下把图中所有圆环换成圆环外径大小圆，在此感谢！

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

飞鹰158

有错误，不能达到要求！

ZZXXQQ

什么错误？怎么达不到要求？

yucpp

下面我粘的是ZZXXQQ版主的代码。程序并没有什么错误，只是括号有点问题。这是版主特意对代码使用者的考验吧。找下错误，也有利用提高自己。

4.      ;圆环外径变圆 ZZXXQQ 2009.10.19
5. (defun c:tt ()
6.   (setvar "CMDECHO" 0)
7.   (setq oldos (getvar "OSMODE"))
8.   (if (setq ss (ssget '((0 . "LWPOLYLINE") (70 . 1) (42 . 1.0))))
9.     (progn
10.       (setvar "osmode" 0)
11.       (command ".UNDO" "BE")
12.       (setq i -1)
13.       (repeat (sslength ss)
14. (setq ent (entget (ssname ss (setq i (1+ i))))
15.        w   (cdr (assoc 40 ent))
16.        pt  (cdr (assoc 10 ent))
17.        pc  (osnap pt "CEN")
18.        r   (+ (distance pc pt) (/ w 2))
19. )
20. (command "CIRCLE" pc r)
21.       )
22.       (command ".ERASE" ss "")
23.       (command ".UNDO" "E")
24.       (setvar "osmode" oldos)
25.     )
26.   )
27.   (setvar "CMDECHO" 1)
28.   (princ)
29. )

     ;圆环外径变圆 ZZXXQQ 2009.10.19 (defun c:tt ()   (setvar "CMDECHO" 0)   (setq oldos (getvar "OSMODE"))   (if (setq ss (ssget '((0 . "LWPOLYLINE") (70 . 1) (42 . 1.0))))     (progn       (setvar "osmode" 0)       (command ".UNDO" "BE")       (setq i -1)       (repeat (sslength ss) (setq ent (entget (ssname ss (setq i (1+ i))))        w   (cdr (assoc 40 ent))        pt  (cdr (assoc 10 ent))        pc  (osnap pt "CEN")        r   (+ (distance pc pt) (/ w 2)) ) (command "CIRCLE" pc r)       )       (command ".ERASE" ss "")       (command ".UNDO" "E")       (setvar "osmode" oldos)     )   )   (setvar "CMDECHO" 1)   (princ) )

飞鹰158

不好意思，我现在正刚学这个LISP！

飞鹰158

望高手，能编出能实现如图中所示标注程序LSP吗？

 

龙龙仔

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78523

飞鹰158

对于我这样的初手难说，太难了，能帮忙改改吗？谢谢！！