[原创]：这个LSP程序有点怪

fedd

很简单的，就是画圆的中心线；可是为什么有时候画的是两条直径啊，我明明设定了长度的。代码：

(defun c:zxx()
(setvar "cmdecho" 0)
(setq en(entsel "选取一个圆:"))
(setq en_data(entget(car en)))
(setq rr(assoc 40 en_data))
(setq r(cdr rr))
(setq r(+ r (/ r 11.1) 2))
(setq cp(cdr(assoc 10 en_data)))
(setq pe(polar cp 0 r))
(setq pn(polar cp (* 0.5 pi) r))
(setq pw(polar cp pi r))
(setq ps(polar cp (* 1.5 pi) r))
(command "line" pe pw "")
(command "line" pn ps "")
(princ)
)

szmaicy

2. (defun c:zxx( /  en en_data r cp pe pn pw ps)
   
3.   (setvar "cmdecho" 0)
   
4.   (setq en (entsel "选取一个圆:")
   
5.         en_data (entget (car en))
   
6.         r (cdr (assoc 40 en_data))
   
7.         r (+ r (/ r 11.1) 2)
   
8.         cp (cdr(assoc 10 en_data))
   
9.         pe (polar cp 0 r)
   
10.         pn (polar cp (* 0.5 pi) r)
    
11.         pw (polar cp pi r)
    
12.         ps (polar cp (* 1.5 pi) r)
    
13.    )
    
14.    (command "_.line" "non" pe "non" pw "" "_.line" "non" pn "non" ps "")
    
15.    (princ)
    
16. )

(defun c:zxx( /  en en_data r cp pe pn pw ps)<br />   (setvar "cmdecho" 0)<br />   (setq en (entsel "选取一个圆:")<br />         en_data (entget (car en))<br />         r (cdr (assoc 40 en_data))<br />         r (+ r (/ r 11.1) 2)<br />         cp (cdr(assoc 10 en_data))<br />         pe (polar cp 0 r)<br />         pn (polar cp (* 0.5 pi) r)<br />         pw (polar cp pi r)<br />         ps (polar cp (* 1.5 pi) r)<br />    )<br />    (command "_.line" "non" pe "non" pw "" "_.line" "non" pn "non" ps "")<br />    (princ)<br /> )

fedd

试了，不行啊，   ：（

eachy

最初由 fedd 发布
[B]试了，不行啊，   ：（ [/B]

2. 
   
3. (defun c:zxx (/ en en_data rr cp pe pn pw ps)
   
4.   (setvar "cmdecho" 0)
   
5.   (if (setq en (entsel "选取一个圆:"))
   
6.     (progn
   
7.       (setq en_data (entget (car en)) ;_ dxf list
   
8.             rr            (cdr (assoc 40 en_data)) ;_ Radius
   
9.             cp            (cdr (assoc 10 en_data)) ;_ center point
   
10.             pe            (polar cp 0 rr)
    
11.             pn            (polar cp (* 0.5 pi) rr)
    
12.             pw            (polar cp pi rr)
    
13.             ps            (polar cp (* 1.5 pi) rr)
    
14.       )
    
15.       (command "line" "_non" pe "_non" pw "")
    
16.       (command "line" "_non" pn "_non" ps "")
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )

<br /> (defun c:zxx (/ en en_data rr cp pe pn pw ps)<br />   (setvar "cmdecho" 0)<br />   (if (setq en (entsel "选取一个圆:"))<br />     (progn<br />       (setq en_data (entget (car en)) ;_ dxf list<br />             rr            (cdr (assoc 40 en_data)) ;_ Radius <br />             cp            (cdr (assoc 10 en_data)) ;_ center point<br />             pe            (polar cp 0 rr)<br />             pn            (polar cp (* 0.5 pi) rr)<br />             pw            (polar cp pi rr)<br />             ps            (polar cp (* 1.5 pi) rr)<br />       )<br />       (command "line" "_non" pe "_non" pw "")<br />       (command "line" "_non" pn "_non" ps "")<br />     )<br />   )<br />   (princ)<br /> )

fedd

我要画的是比直径稍微长一点的中心标志，而且是两条直线（能画到中心线层那是算你牛），看得到的。请运行一下我那个代码。不过还是谢谢了，


好奇怪啊，按理说我写的程序没有问题啊，谁能告诉我这个是为什么呢？

eachy

2. 
   
3. (defun c:zxx (/ en en_data rr cp pe pn pw ps)
   
4.   (setvar "cmdecho" 0)
   
5.   (if (setq en (entsel "选取一个圆:"))
   
6.     (progn
   
7.       (setq en_data (entget (car en)) ;_ dxf list
   
8.             rr            (* 1.2 (cdr (assoc 40 en_data))) ;_ Radius
   
9.             cp            (cdr (assoc 10 en_data)) ;_ center point
   
10.             pe            (polar cp 0 rr)
    
11.             pn            (polar cp (* 0.5 pi) rr)
    
12.             pw            (polar cp pi rr)
    
13.             ps            (polar cp (* 1.5 pi) rr)
    
14.       )
    
15.       (command ".layer" "m" "zxx" "c" "3" "" "")
    
16.       (command "line" "_non" pe "_non" pw "")
    
17.       (command "line" "_non" pn "_non" ps "")
    
18.       (command "_layerp" )
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )

<br /> (defun c:zxx (/ en en_data rr cp pe pn pw ps)<br />   (setvar "cmdecho" 0)<br />   (if (setq en (entsel "选取一个圆:"))<br />     (progn<br />       (setq en_data (entget (car en)) ;_ dxf list<br />             rr            (* 1.2 (cdr (assoc 40 en_data))) ;_ Radius <br />             cp            (cdr (assoc 10 en_data)) ;_ center point<br />             pe            (polar cp 0 rr)<br />             pn            (polar cp (* 0.5 pi) rr)<br />             pw            (polar cp pi rr)<br />             ps            (polar cp (* 1.5 pi) rr)<br />       )<br />       (command ".layer" "m" "zxx" "c" "3" "" "")<br />       (command "line" "_non" pe "_non" pw "")<br />       (command "line" "_non" pn "_non" ps "")<br />       (command "_layerp" )<br />     )<br />   )<br />   (princ)<br /> )

fedd

错误：函数被取消，还是不行啊，你自己运行了吗？难道是我的CAD软件有问题？

TLHMQH

最初由 fedd 发布
[B]错误：函数被取消，还是不行啊，你自己运行了吗？难道是我的CAD软件有问题？ [/B]

最初由 fedd 发布
[B]（能画到中心线层那是算你牛） [/B]

运行正常。
你的CAD设置有问题！