请大神们看看这个小程序错在哪里？

笑2笑

下图红色直线是要标出的

1. (defun c:test ( / a2 am b2 bm cenpt cent en en_data n old_cl os p3 p4 p5 p6 pi pt1 pt2 rad ss)
   
2.   (setq ss (ssget '((0 . "ARC")))
   
3.   n 0
   
4.   old_cl (getvar "cecolor")
   
5.   os (getvar "osmode")
   
6.   )
   
7.   (repeat (sslength ss)
   
8.     (setq en (ssname ss n))
   
9.     (setq en_data (entget en))
   
10.     (setq cenpt (cdr (assoc 20 en_data)))
    
11. 
    
12.     (setq cent (trans cenpt 0 1))
    
13.     (PRINC (LIST 0 0 cent))
    
14.     (setq rad (cdr (assoc 40 en_data)))
    
15.     (setq am (cdr (assoc 50 en_data)))
    
16.     (setq bm (cdr (assoc 51 en_data)))
    
17. 
    
18.     (setq pt1 (polar cent am rad))
    
19.     (setq pt2 (polar cent bm rad))
    
20.     (setq a2 (+ (* 1 pi) am))
    
21.     (setq p3 (polar pt1 am 0.05))
    
22.     (setq p4 (polar pt1 a2 0.05))
    
23.     (setq b2 (+ (* 1 pi) bm))
    
24.     (setq p5 (polar pt2 bm 0.05))
    
25.     (setq p6 (polar pt2 b2 0.05))
    
26. 
    
27.     (setvar "osmode" 0)
    
28.     (setvar "CECOLOR" "3")
    
29.     (command "line" p3 p4 "")
    
30.     (command "line" p5 p6 "")
    
31.     (setvar "cecolor" old_cl)
    
32.     (setvar "osmode" os)
    
33.     (setq n (1+ n))
    
34.   )
    
35.   (prin1)
    
36. )

(defun c:test ( / a2 am b2 bm cenpt cent en en_data n old_cl os p3 p4 p5 p6 pi pt1 pt2 rad ss)<br />   (setq ss (ssget '((0 . "ARC")))<br />   n 0<br />   old_cl (getvar "cecolor")<br />   os (getvar "osmode")<br />   )<br />   (repeat (sslength ss)<br />     (setq en (ssname ss n))<br />     (setq en_data (entget en))<br />     (setq cenpt (cdr (assoc 20 en_data)))<br /> <br />     (setq cent (trans cenpt 0 1))<br />     (PRINC (LIST 0 0 cent))<br />     (setq rad (cdr (assoc 40 en_data)))<br />     (setq am (cdr (assoc 50 en_data)))<br />     (setq bm (cdr (assoc 51 en_data)))<br /> <br />     (setq pt1 (polar cent am rad))<br />     (setq pt2 (polar cent bm rad))<br />     (setq a2 (+ (* 1 pi) am))<br />     (setq p3 (polar pt1 am 0.05))<br />     (setq p4 (polar pt1 a2 0.05))<br />     (setq b2 (+ (* 1 pi) bm))<br />     (setq p5 (polar pt2 bm 0.05))<br />     (setq p6 (polar pt2 b2 0.05))<br /> <br />     (setvar "osmode" 0)<br />     (setvar "CECOLOR" "3")<br />     (command "line" p3 p4 "")<br />     (command "line" p5 p6 "")<br />     (setvar "cecolor" old_cl)<br />     (setvar "osmode" os)<br />     (setq n (1+ n))<br />   )<br />   (prin1)<br /> )

QiaoCheng

就光是标红线？

守仁格竹GM

(setq cenpt (cdr (assoc 20 en_data)))
20改成10 是中心点

QiaoCheng

大神门没空
俺新手看了下局部变量里好像有pi哦

守仁格竹GM

刚看见局部变量pi也要去掉，然后就OK了

笑2笑

QiaoCheng 发表于 2013-6-13 15:37
就光是标红线？

是的，只标红色

笑2笑

守仁格竹GM 发表于 2013-6-13 15:55
刚看见局部变量pi也要去掉，然后就OK了

没有OK呢，大哥帮忙看看
[pcode=lisp,true](defun c:test( / a2 am b2 bm cenpt cent en en_data n old_cl os p3 p4 p5 p6 pt1 pt2 rad ss)
  (setq ss (ssget '((0 . "ARC")))
        n 0
        old_cl (getvar "cecolor")
        os (getvar "osmode")
  )
  (repeat (sslength ss)
    (setq en (ssname ss n))
    (setq en_data (entget en))
    (setq cenpt (cdr (assoc 10 en_data)))

    (setq cent (trans cenpt 0 1))
    (setq rad (cdr (assoc 40 en_data)))
    (setq am (cdr (assoc 50 en_data)))
    (setq bm (cdr (assoc 51 en_data)))

    (setq pt1 (polar cent am rad))
    (setq pt2 (polar cent bm rad))
    (setq a2 (+ (* 1 pi) am))
    (setq p3 (polar pt1 am 0.05))
    (setq p4 (polar pt1 a2 0.05))
    (setq b2 (+ (* 1 pi) bm))
    (setq p5 (polar pt2 bm 0.05))
    (setq p6 (polar pt2 b2 0.05))

    (setvar "osmode" 0)
    (setvar "CECOLOR" "3")
    (command "line" p3 p4 "")
    (command "line" p5 p6 "")
    (setvar "cecolor" old_cl)
    (setvar "osmode" os)
    (setq n (1+ n))
  )
  (prin1)
)

[/pcode]

QiaoCheng

笑2笑 发表于 2013-6-13 16:02
没有OK呢，大哥帮忙看看
(defun c:test( / a2 am b2 bm cenpt cent en en_data n old_cl os p3 p4 p5 p6 ...

怎么会不行？
你把(setq p3 (polar pt1 am 0.05))
改大点 (setq p3 (polar pt1 am 200))看看

zyhandw

3楼说的没错，否则很多变量因没有值，造成程序运行后不能得到结果

守仁格竹GM

你那个0.05设置的太小了 已经画上了 值修改大一些就行了

Free-Lancer

重写了一个
[pcode=lisp,true]
(defun c:tt (/ mkln p1 p2 p3 p4 ss sl i e el sp ep sa ea )
  (defun mkln (p1 p2)
    (entmake (list '(0 . "line")
     '(100 . "AcDbEntity")
     '(100 . "AcDbLine")
     (cons 10 p1)
     (cons 11 p2)
     '(62 . 1))))
  (while (setq ss (ssget '((0 . "ARC"))))
    (progn
      (setq sl (sslength ss)
     i  -1
      )
      (repeat sl
(setq e  (ssname ss (setq i (1+ i)))
       el (entget e)
       sp (vlax-curve-getstartpoint e)
       ep (vlax-curve-getendpoint e)
       sa (cdr (assoc 50 el))
       ea (cdr (assoc 51 el))
)
(setq p1 (polar sp sa 0.05)
       p2 (polar sp (+ sa pi) 0.05)
       p3 (polar ep ea 0.05)
       p4 (polar ep (+ ea pi) 0.05)
)
(mkln p1 p2)
(mkln p3 p4)
      )
    )
  )
  (princ)
)[/pcode]

Lispboy

Free-Lancer 发表于 2013-6-13 16:39
重写了一个

(defun c:tt (/ mkln p1 p2 p3 p4 ss sl i e el sp ep sa ea )

AV杂烩，:P

既然用VL-CURVE类函数了，干嘛还那些POLAR, 用FirstDreiv等啊。

zxq0220

2. (defun c:test ( / am bm cenpt cent en_data n old_cl os p3 p4 p5 p6 rad r2 ss)
   
3. (setq ss (ssget '((0 . "ARC")))
   
4.        n 0
   
5.        old_cl (getvar "cecolor")
   
6.        os (getvar "osmode"))
   
7. (repeat (sslength ss)
   
8.   (setq en_data (entget (ssname ss n)))
   
9.   (setq cenpt (cdr (assoc 10 en_data)))
   
10.   (setq cent (trans cenpt 0 1))
    
11.   (setq rad (cdr (assoc 40 en_data)))
    
12.   (setq r2 (* rad 0.5))
    
13.   (setq am (cdr (assoc 50 en_data)))
    
14.   (setq bm (cdr (assoc 51 en_data)))
    
15.   (setq p4 (polar cent am r2))
    
16.   (setq p6 (polar cent bm r2))
    
17.   (setq p3 (polar p4 am rad))
    
18.   (setq p5 (polar p6 bm rad))
    
19.   (setvar "osmode" 0)
    
20.   (setvar "CECOLOR" "3")
    
21.   (command "line" p3 p4 "" "line" p5 p6 "")
    
22.   (setvar "cecolor" old_cl)
    
23.   (setvar "osmode" os)
    
24.   (setq n (1+ n))
    
25. )
    
26. (prin1)
    
27. )
    

(defun c:test ( / am bm cenpt cent en_data n old_cl os p3 p4 p5 p6 rad r2 ss)<br /> (setq ss (ssget '((0 . "ARC")))<br />        n 0<br />        old_cl (getvar "cecolor")<br />        os (getvar "osmode"))<br /> (repeat (sslength ss)<br />   (setq en_data (entget (ssname ss n)))<br />   (setq cenpt (cdr (assoc 10 en_data)))<br />   (setq cent (trans cenpt 0 1))<br />   (setq rad (cdr (assoc 40 en_data)))<br />   (setq r2 (* rad 0.5))<br />   (setq am (cdr (assoc 50 en_data)))<br />   (setq bm (cdr (assoc 51 en_data)))<br />   (setq p4 (polar cent am r2))<br />   (setq p6 (polar cent bm r2))<br />   (setq p3 (polar p4 am rad))<br />   (setq p5 (polar p6 bm rad))<br />   (setvar "osmode" 0)<br />   (setvar "CECOLOR" "3")<br />   (command "line" p3 p4 "" "line" p5 p6 "")<br />   (setvar "cecolor" old_cl)<br />   (setvar "osmode" os)<br />   (setq n (1+ n))<br /> )<br /> (prin1)<br /> )<br />

st788796

FirstDeriv 还要加一个矢量才转到圆上，杂烩更简单