[LISP程序]：extrude拉伸实体,保持原图层

陌生人

无聊的紧,发个小东东玩玩

2. 
   
3. (defun c:ez (/ ss i n2 n h ent entl entn i la e70)
   
4. (princ "\n ez=====extrude拉伸实体,保持原图层-----------陌生人.2001.6")
   
5.   (setq ss (ssget '((0 . "*POLYLINE,CIRCLE,ELLIPSE,REGION")))
   
6.         i 0
   
7.         n2 0
   
8.         n (sslength ss)
   
9.         h (getdist "\n拉伸高度:"))
   
10.   (repeat n
    
11.     (setq ent (ssname ss i)
    
12.           entl (entget ent)
    
13.           entn (cdr(assoc 0 entl))
    
14.           i (1+ i)
    
15.           la (cdr(assoc 8 entl))
    
16.           e70 (cdr(assoc 70 entl))
    
17.     )
    
18.     (if (and (= "LWPOLYLINE" entn)(/= 1 e70))
    
19.       (setq n2 (1+ n2))
    
20.       (progn                   ;;;;else
    
21.         (command "_.extrude" ent "" h "0")
    
22.         (setq e (entlast))
    
23.         (command "_.change" e "" "p" "la" la "")
    
24.       )
    
25.     );end if
    
26.   );end repeat
    
27. (princ (strcat "\n选中" (rtos n) "个"))
    
28. (princ (strcat "\n" (rtos n2) "个不成功."))
    
29. (princ)
    
30. )
    

<br /> (defun c:ez (/ ss i n2 n h ent entl entn i la e70)<br /> (princ "\n ez=====extrude拉伸实体,保持原图层-----------陌生人.2001.6")<br />   (setq ss (ssget '((0 . "*POLYLINE,CIRCLE,ELLIPSE,REGION")))<br />         i 0<br />         n2 0<br />         n (sslength ss)<br />         h (getdist "\n拉伸高度:"))<br />   (repeat n<br />     (setq ent (ssname ss i)<br />           entl (entget ent)<br />           entn (cdr(assoc 0 entl))<br />           i (1+ i)<br />           la (cdr(assoc 8 entl))<br />           e70 (cdr(assoc 70 entl))<br />     )<br />     (if (and (= "LWPOLYLINE" entn)(/= 1 e70))<br />       (setq n2 (1+ n2))<br />       (progn                   ;;;;else<br />         (command "_.extrude" ent "" h "0")<br />         (setq e (entlast))<br />         (command "_.change" e "" "p" "la" la "")<br />       )<br />     );end if<br />   );end repeat<br /> (princ (strcat "\n选中" (rtos n) "个"))<br /> (princ (strcat "\n" (rtos n2) "个不成功."))<br /> (princ)<br /> )<br />

LUCAS

拉伸实体缺了REGION??

陌生人

谢谢,已经加上了.:)

aeo

加个选项:不闭合的自动闭合(可选)

陌生人

好主意,修改了.
因为是用以前的程序修改的.先这样了,以后再用vl重写.
到时候加入自动封闭arc,spline功能
连接线段为封闭多义线功能

2. 
   
3. ;|extrude拉伸实体,保持原图层-----------陌生人
   
4. v1.1 2003.12 增加对未封闭的pl线条是否封闭后拉伸的选项
   
5. 增加 undo 处理
   
6. |;
   
7. (defun c:ez (/ ss i n2 n ext_h ent entl entn i la e70)
   
8.   (princ "\n ez=====extrude拉伸实体,保持原图层-----------陌生人.2001.6")
   
9.   (princ "\n 当前选项 : 对不封闭的实体自动封闭并拉伸;") (princ "     拉伸高度")(princ ext_h)
   
10.   (command ".undo" "be")
    
11.   (setq ss (ssget '((0 . "*POLYLINE,CIRCLE,ELLIPSE,region")))
    
12.         i 0
    
13.         n2 0
    
14.         n (sslength ss)
    
15.         cl_key T)
    
16.   (while (not(setq ext_h (getdist "\n<改变选项: 对不封闭的实体不处理>/拉伸高度:")))
    
17.          (setq cl_key nil)
    
18.          (princ "\n 当前选项 : 对不封闭的实体不处理")
    
19.   )
    
20.   (repeat n
    
21.     (setq ent (ssname ss i)
    
22.           entl (entget ent)
    
23.           entn (cdr(assoc 0 entl))
    
24.           i (1+ i)
    
25.           la (cdr(assoc 8 entl))
    
26.           e70 (cdr(assoc 70 entl))
    
27.     )
    
28.     (if (and (= "LWPOLYLINE" entn) cl_key)
    
29.         (command ".pedit" ent "Close" "")
    
30.     )
    
31.     (command "_.extrude" ent "" ext_h "0")
    
32.     (setq e (entlast))
    
33.     (command "_.change" e "" "p" "la" la "")
    
34.   );end repeat
    
35. (command ".undo" "e")
    
36. (princ (strcat "\n选中" (rtos n) "个"))
    
37. (princ (strcat "\n" (rtos n2) "个不成功."))
    
38. (princ)
    
39. )
    
40. (princ "\n ez=====extrude拉伸实体,保持原图层V1.1-----------陌生人.2001.6 2003.12")
    

<br /> ;|extrude拉伸实体,保持原图层-----------陌生人<br /> v1.1 2003.12 增加对未封闭的pl线条是否封闭后拉伸的选项<br /> 增加 undo 处理<br /> |;<br /> (defun c:ez (/ ss i n2 n ext_h ent entl entn i la e70)<br />   (princ "\n ez=====extrude拉伸实体,保持原图层-----------陌生人.2001.6")<br />   (princ "\n 当前选项 : 对不封闭的实体自动封闭并拉伸;") (princ "     拉伸高度")(princ ext_h)<br />   (command ".undo" "be")<br />   (setq ss (ssget '((0 . "*POLYLINE,CIRCLE,ELLIPSE,region")))<br />         i 0<br />         n2 0<br />         n (sslength ss)<br />         cl_key T)<br />   (while (not(setq ext_h (getdist "\n<改变选项: 对不封闭的实体不处理>/拉伸高度:")))<br />          (setq cl_key nil)<br />          (princ "\n 当前选项 : 对不封闭的实体不处理")<br />   )<br />   (repeat n<br />     (setq ent (ssname ss i)<br />           entl (entget ent)<br />           entn (cdr(assoc 0 entl))<br />           i (1+ i)<br />           la (cdr(assoc 8 entl))<br />           e70 (cdr(assoc 70 entl))<br />     )<br />     (if (and (= "LWPOLYLINE" entn) cl_key)<br />         (command ".pedit" ent "Close" "")<br />     )<br />     (command "_.extrude" ent "" ext_h "0")<br />     (setq e (entlast))<br />     (command "_.change" e "" "p" "la" la "")<br />   );end repeat<br /> (command ".undo" "e")<br /> (princ (strcat "\n选中" (rtos n) "个"))<br /> (princ (strcat "\n" (rtos n2) "个不成功."))<br /> (princ)<br /> )<br /> (princ "\n ez=====extrude拉伸实体,保持原图层V1.1-----------陌生人.2001.6 2003.12")<br />

做了个演示,呵呵

li809

修改后的更好用了,谢谢

斩破狼

能不能在R14使用啊

狂刀

应该可以

userzhluserzhl

是不是对三维体的操作?

gcb998

楼主好样的，编的不错，有机会恢复了

hexni2005

本人求注册码，返回码为454540。
谢谢了。。

雨箭风刀

不用注册阿，晕。。。

MUYIY

学习了谢谢

qxlonmsn

66666666666666