如何更改線型

lead009

我在寫一個畫中心線的lisp程式大致上ok
但是有一點就是線型的問題

我不曉得該如何來改變線型，本來想用subst函數來更換聯合子串列
但是原本的類別中，並沒有線型的子串列


請大家幫我一下，我希望畫出來的中心線，可以自動更新到"中心線"的線型
省的每次都要用手調

2. 
   
3. (defun C:C2()
   
4.   (setq oldosmode(getvar "OSMODE"))
   
5.   (prompt"\n框選物件圓")
   
6.   (setq ss(ssget))
   
7.   (setq i 0)
   
8.   (setvar"OSMODE" 0)
   
9.   (repeat (sslength ss)
   
10.     (setq en(ssname ss i))
    
11.     (setq data(entget en))
    
12.     (setq xxtype(cdr(assoc 0 data)))
    
13.     (if(= xxtype "CIRCLE")
    
14.       (progn
    
15.         (setq cen(cdr(assoc 10 data)))
    
16.         (setq rr(cdr(assoc 40 data)))
    
17.         (setq p1(polar cen (* pi 0.0) (* rr 1.3)))
    
18.         (setq p2(polar cen (* pi 0.5) (* rr 1.3)))
    
19.         (setq p3(polar cen (* pi 1.0) (* rr 1.3)))
    
20.         (setq p4(polar cen (* pi 1.5) (* rr 1.3)))
    
21.         (command"line" p1 p3 "")
    
22.         (command"line" p2 p4 "")
    
23.       );P
    
24.     );if
    
25.     (setq i(+ i 1))
    
26.   );while
    
27.   (setvar "OSMODE" oldosmode)
    
28. (prin1)
    
29. )

<br /> (defun C:C2()<br />   (setq oldosmode(getvar "OSMODE"))<br />   (prompt"\n框選物件圓")<br />   (setq ss(ssget))<br />   (setq i 0)<br />   (setvar"OSMODE" 0)<br />   (repeat (sslength ss)<br />     (setq en(ssname ss i))<br />     (setq data(entget en))<br />     (setq xxtype(cdr(assoc 0 data)))<br />     (if(= xxtype "CIRCLE")<br />       (progn<br />         (setq cen(cdr(assoc 10 data)))<br />         (setq rr(cdr(assoc 40 data)))<br />         (setq p1(polar cen (* pi 0.0) (* rr 1.3)))<br />         (setq p2(polar cen (* pi 0.5) (* rr 1.3)))<br />         (setq p3(polar cen (* pi 1.0) (* rr 1.3)))<br />         (setq p4(polar cen (* pi 1.5) (* rr 1.3)))<br />         (command"line" p1 p3 "")<br />         (command"line" p2 p4 "")<br />       );P<br />     );if<br />     (setq i(+ i 1))<br />   );while<br />   (setvar "OSMODE" oldosmode)<br /> (prin1)<br /> )

669423907

支持你，帮你顶起来！

chpmould

lead009 发表于 2011-6-4 13:50
我在寫一個畫中心線的lisp程式大致上ok
但是有一點就是線型的問題

(command "chprop" ss "" "lt" "center" "")

chpmould

<增加圆和圆弧中心线工具> (如果已经有中心线的圆和圆弧,程序自动不再加中心线)

lead009

謝謝，不過還是比較希望用一下自己寫的，順便也多增加一些lisp的知識

xyp1964

2. 
   
3. (defun c:tt ()
   
4.   (prompt "\n框選物件圓: ")
   
5.   (setq        ss (ssget '((0 . "circle,arc")))
   
6.         i  0
   
7.   )
   
8.   (setvar "OSMODE" 0)
   
9.   (setvar "celtype" "中心線")
   
10.   (while (setq en (ssname ss (setq i (1+ i))))
    
11.     (setq data (entget en)
    
12.           cen  (cdr (assoc 10 data))
    
13.           rr   (cdr (assoc 40 data))
    
14.           p1   (polar cen (* pi 0.0) (* rr 1.3))
    
15.           p2   (polar cen (* pi 0.5) (* rr 1.3))
    
16.           p3   (polar cen (* pi 1.0) (* rr 1.3))
    
17.           p4   (polar cen (* pi 1.5) (* rr 1.3))
    
18.     )
    
19.     (command "line" p1 p3 "")
    
20.     (command "line" p2 p4 "")
    
21.   )
    
22.   (princ)
    
23. )
    

<br /> (defun c:tt ()<br />   (prompt "\n框選物件圓: ")<br />   (setq        ss (ssget '((0 . "circle,arc")))<br />         i  0<br />   )<br />   (setvar "OSMODE" 0)<br />   (setvar "celtype" "中心線")<br />   (while (setq en (ssname ss (setq i (1+ i))))<br />     (setq data (entget en)<br />           cen  (cdr (assoc 10 data))<br />           rr   (cdr (assoc 40 data))<br />           p1   (polar cen (* pi 0.0) (* rr 1.3))<br />           p2   (polar cen (* pi 0.5) (* rr 1.3))<br />           p3   (polar cen (* pi 1.0) (* rr 1.3))<br />           p4   (polar cen (* pi 1.5) (* rr 1.3))<br />     )<br />     (command "line" p1 p3 "")<br />     (command "line" p2 p4 "")<br />   )<br />   (princ)<br /> )<br />