[LISP程序]：初次来此网站，不要笑话

Visual LISP

我从事CAD绘图工作，熟悉VLISP及DCL，希望和VLISP编程人员共同探讨。

XDSoft

最初由 Visual LISP 发布
[B]我从事CAD绘图工作，熟悉VLISP及DCL，希望和VLISP编程人员共同探讨。 [/B]

欢迎新朋友！欢迎你常来！！

张世杰

有什么心得或程序，说说看

jfusng

CAD命令我还比较熟悉,但是AUOTLISP我就不是太懂了,还不知怎么下手.

msdg

最初由 Visual LISP 发布
[B]我从事CAD绘图工作，熟悉VLISP及DCL，希望和VLISP编程人员共同探讨。 [/B]

欢迎，欢迎！热烈欢迎！！
愿更多的新朋友加入！

zshutang

各位大侠，LISP能不能实现这样一个程序：把目前图面上的不同层内的固定R的CIRCLE转变成正方型，中心不变。

aeo

最初由 zshutang 发布
[B]各位大侠，LISP能不能实现这样一个程序：把目前图面上的不同层内的固定R的CIRCLE转变成正方型，中心不变。 [/B]

2. 
   
3. (defun c:zh( / cen e en j len r ss)
   
4. (if(and(setq e(car(entsel"\n选一个要转化的圆")))
   
5.         (setq en(entget e))
   
6.         (= "CIRCLE"(cdr(assoc 0 en)))
   
7.      )(progn
   
8.     (setq r(cdr(assoc 40 en)))
   
9.     ;(prompt"选要改的圆")
   
10.     (setq ss(ssget "X"(list '(0 . "CIRCLE")(cons 40 r))))
    
11.     (setq j 0 len(sslength ss))
    
12.     (command"undo""group")
    
13.     (while(< j len)
    
14.      (setq e(ssname ss j)cen(cdr(assoc 10 (entget e))) )
    
15.      (command"_.polygon""4" cen "i" r)
    
16.      (entdel e)
    
17.      (setq j(1+ j))
    
18.     )(command"undo""end")
    
19.   ))(princ))
    

<br /> (defun c:zh( / cen e en j len r ss)<br /> (if(and(setq e(car(entsel"\n选一个要转化的圆")))<br />         (setq en(entget e))<br />         (= "CIRCLE"(cdr(assoc 0 en)))<br />      )(progn<br />     (setq r(cdr(assoc 40 en)))<br />     ;(prompt"选要改的圆")<br />     (setq ss(ssget "X"(list '(0 . "CIRCLE")(cons 40 r))))<br />     (setq j 0 len(sslength ss))<br />     (command"undo""group")<br />     (while(< j len)<br />      (setq e(ssname ss j)cen(cdr(assoc 10 (entget e))) )<br />      (command"_.polygon""4" cen "i" r)<br />      (entdel e)<br />      (setq j(1+ j))<br />     )(command"undo""end")<br />   ))(princ))<br />

要外切 "i"改成 "C"
不要全改:去掉"X"