程序运行不正常，求助高手

lys65

(defun c:h5()
(setq p0 (getpoint"确定圆心P0点"))
(setq ar (getangle p0"输入角度ar"))
(setq a1 (getangle p0"输入角度a1"))
(setq a2 (getangle p0"输入角度a2"))
(setq a3 (getangle p0"输入角度a3"))
(setq a4 (getangle p0"输入角度a4"))
(setq a5 (getangle p0"输入角度a5"))
(setq pr (polar p0  ar 69))
(setq p1 (polar p0 a1 69))
  (setq p2 (polar p0 a2 69))
  (setq p3 (polar p0 a3 69))
  (setq p4 (polar p0 a4 69))
  (setq p5 (polar p0 a5 69))
(command "line" p0 pr "")
  (command "line" p0 p1 "")
   (command "line" p0 p2 "")
   (command "line" p0 p3 "")
   (command "line" p0 p4 "")
   (command "line" p0 p5 "")
(setq f1 (getint"输入分格数f1"))
(setq f2 (getint"输入分格数f2"))
  (setq f3 (getint"输入分格数f3"))
  (setq f4 (getint"输入分格数f4"))
(command "array" p0 p1 "" "p"
p0 (+ f1 1) (- (* (/ a2 pi) 180)
  (* (/ a1 pi) 180)) "y")
(command "array" p0 p2 "" "p"
p0 (+ f2 1) (- (* (/ a3 pi) 180)
  (* (/ a2 pi) 180)) "y")
(command "array" p0 p3 "" "p"
p0 (+ f3 1) (- (* (/ a4 pi) 180)
  (* (/ a3 pi) 180)) "y")
(command "array" p0 p4 "" "p"
p0 (+ f4 1) (- (* (/ a5 pi) 180)
  (* (/ a4 pi) 180)) "y")
(setq dr (polar pr pi 3))
(setq d1 (polar p1 pi 3))
(setq d2 (polar p2 pi 3))
(setq d3 (polar p3 pi 3))
(setq d4 (polar p4 pi 3))
(setq d5 (polar p5 pi 3))
(command "dtext" "s"
"sz5" "j" "mr" dr 0)
(command "dtext" "s"
"sz5" "j" "mr" d1 0)
(command "dtext" "s"
"sz5" "j" "mr" d2 0)
(command "dtext" "s"
"sz5" "j" "mr" d3 0)
(command "dtext" "s"
"sz5" "j" "mr" d4 0)
(command "dtext" "s"
"sz5" "j" "mr" d5 0)
  (setq pa(getpoint"pa"))
  (setq pb (getpoint"pb"))
  (command "trim" pa pb "" "f" pa pb "" "")
(command "circle" p0 65)
(command "erase" p0 p2 "")
(command "erase" p0 p3 "")
(command "erase" p0 p4 "")
(command "erase" p0 p5 "")
(princ)
  )
绘制以下图形：

自贡黄明儒

通常情况下，使用command绘图是要关闭捕捉的。

springwillow

通常情况下你这么写是不合理的，应该多利用LISP的表处理和循环功能。

ZZXXQQ

2. (defun c:h5()
   
3. (setvar "CMDECHO" 0)
   
4. (setq oldos (getvar "OSMODE"))
   
5. (setq p0 (getpoint "\n确定圆心P0点: "))
   
6. (setq ar (getangle p0 "\n输入角度ar="))
   
7. (setq a1 (getangle p0 "\n输入角度a1="))
   
8. (setq a2 (getangle p0 "\n输入角度a2="))
   
9. (setq a3 (getangle p0 "\n输入角度a3="))
   
10. (setq a4 (getangle p0 "\n输入角度a4="))
    
11. (setq a5 (getangle p0 "\n输入角度a5="))
    
12. (setq pr (polar p0 ar 69) pr1 (polar p0 ar 65))
    
13. (setq p1 (polar p0 a1 69) p11 (polar p0 a1 65))
    
14. (setq p2 (polar p0 a2 69) p21 (polar p0 a2 65))
    
15. (setq p3 (polar p0 a3 69) p31 (polar p0 a3 65))
    
16. (setq p4 (polar p0 a4 69) p41 (polar p0 a4 65))
    
17. (setq p5 (polar p0 a5 69) p51 (polar p0 a5 65))
    
18. (setvar "OSMODE" 0)
    
19. (command "line" pr1 pr "")
    
20. (command "line" p11 p1 "")
    
21. (command "line" p21 p2 "")
    
22. (command "line" p31 p3 "")
    
23. (command "line" p41 p4 "")
    
24. (command "line" p51 p5 "")
    
25. (setq f1 (getint "\n输入分格数f1="))
    
26. (setq f2 (getint "\n输入分格数f2="))
    
27. (setq f3 (getint "\n输入分格数f3="))
    
28. (setq f4 (getint "\n输入分格数f4="))
    
29. (command "LINE" p11 (polar p11 a1 3) "" "array" "L" "" "p" p0 f1 (/ (* (- a2 a1) 180) pi) "y" "ERASE" "P" "")
    
30. (command "LINE" p21 (polar p21 a2 3) "" "array" "L" "" "p" p0 f2 (/ (* (- a3 a2) 180) pi) "y" "ERASE" "P" "")
    
31. (command "LINE" p31 (polar p31 a3 3) "" "array" "L" "" "p" p0 f3 (/ (* (- a4 a3) 180) pi) "y" "ERASE" "P" "")
    
32. (command "LINE" p41 (polar p41 a4 3) "" "array" "L" "" "p" p0 f4 (/ (* (- a5 a4) 180) pi) "y" "ERASE" "P" "")
    
33. (setq dr (polar pr ar 3))
    
34. (setq d1 (polar p1 a1 3))
    
35. (setq d2 (polar p2 a2 3))
    
36. (setq d3 (polar p3 a3 3))
    
37. (setq d4 (polar p4 a4 3))
    
38. (setq d5 (polar p5 a5 3))
    
39. (command "text" "mr" dr 3 0 "RP")
    
40. (command "text" "mr" d1 3 0 "200")
    
41. (command "text" "mr" d2 3 0 "400")
    
42. (command "text" "mr" d3 3 0 "600")
    
43. (command "text" "mr" d4 3 0 "800")
    
44. (command "text" "mr" d5 3 0 "1000")
    
45. ; (setq pa (getpoint "pa"))
    
46. ; (setq pb (getpoint "pb"))
    
47. ; (command "trim" pa pb "" "f" pa pb "" "")
    
48. (command "circle" p0 65)
    
49. (command "TRIM" "" (polar p0 0 65) "")
    
50. ; (command "erase" p0 p2 "")
    
51. ; (command "erase" p0 p3 "")
    
52. ; (command "erase" p0 p4 "")
    
53. ; (command "erase" p0 p5 "")
    
54. (setvar "OSMODE" oldos)
    
55. (setvar "CMDECHO" 1)
    
56. (princ)
    
57. )

(defun c:h5()<br /> (setvar "CMDECHO" 0)<br /> (setq oldos (getvar "OSMODE"))<br /> (setq p0 (getpoint "\n确定圆心P0点: "))<br /> (setq ar (getangle p0 "\n输入角度ar="))<br /> (setq a1 (getangle p0 "\n输入角度a1="))<br /> (setq a2 (getangle p0 "\n输入角度a2="))<br /> (setq a3 (getangle p0 "\n输入角度a3="))<br /> (setq a4 (getangle p0 "\n输入角度a4="))<br /> (setq a5 (getangle p0 "\n输入角度a5="))<br /> (setq pr (polar p0 ar 69) pr1 (polar p0 ar 65))<br /> (setq p1 (polar p0 a1 69) p11 (polar p0 a1 65))<br /> (setq p2 (polar p0 a2 69) p21 (polar p0 a2 65))<br /> (setq p3 (polar p0 a3 69) p31 (polar p0 a3 65))<br /> (setq p4 (polar p0 a4 69) p41 (polar p0 a4 65))<br /> (setq p5 (polar p0 a5 69) p51 (polar p0 a5 65))<br /> (setvar "OSMODE" 0)<br /> (command "line" pr1 pr "")<br /> (command "line" p11 p1 "")<br /> (command "line" p21 p2 "")<br /> (command "line" p31 p3 "")<br /> (command "line" p41 p4 "")<br /> (command "line" p51 p5 "")<br /> (setq f1 (getint "\n输入分格数f1="))<br /> (setq f2 (getint "\n输入分格数f2="))<br /> (setq f3 (getint "\n输入分格数f3="))<br /> (setq f4 (getint "\n输入分格数f4="))<br /> (command "LINE" p11 (polar p11 a1 3) "" "array" "L" "" "p" p0 f1 (/ (* (- a2 a1) 180) pi) "y" "ERASE" "P" "")<br /> (command "LINE" p21 (polar p21 a2 3) "" "array" "L" "" "p" p0 f2 (/ (* (- a3 a2) 180) pi) "y" "ERASE" "P" "")<br /> (command "LINE" p31 (polar p31 a3 3) "" "array" "L" "" "p" p0 f3 (/ (* (- a4 a3) 180) pi) "y" "ERASE" "P" "")<br /> (command "LINE" p41 (polar p41 a4 3) "" "array" "L" "" "p" p0 f4 (/ (* (- a5 a4) 180) pi) "y" "ERASE" "P" "")<br /> (setq dr (polar pr ar 3))<br /> (setq d1 (polar p1 a1 3))<br /> (setq d2 (polar p2 a2 3))<br /> (setq d3 (polar p3 a3 3))<br /> (setq d4 (polar p4 a4 3))<br /> (setq d5 (polar p5 a5 3))<br /> (command "text" "mr" dr 3 0 "RP")<br /> (command "text" "mr" d1 3 0 "200")<br /> (command "text" "mr" d2 3 0 "400")<br /> (command "text" "mr" d3 3 0 "600")<br /> (command "text" "mr" d4 3 0 "800")<br /> (command "text" "mr" d5 3 0 "1000")<br /> ; (setq pa (getpoint "pa"))<br /> ; (setq pb (getpoint "pb"))<br /> ; (command "trim" pa pb "" "f" pa pb "" "") <br /> (command "circle" p0 65)<br /> (command "TRIM" "" (polar p0 0 65) "")<br /> ; (command "erase" p0 p2 "")<br /> ; (command "erase" p0 p3 "")<br /> ; (command "erase" p0 p4 "")<br /> ; (command "erase" p0 p5 "")<br /> (setvar "OSMODE" oldos)<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )

lys65

请教楼上，程序不能运行，谢啦!!☆⌒(*＾-゜)v

ZZXXQQ

可以运行啊

lys65

非常感谢！ZZXXQQ高手啊！赞一个！

lys65

请教ZZXXQQ，这几行是什么意思？
(setvar "CMDECHO" 0)
(setq oldos (getvar "OSMODE"))

(setvar "OSMODE" oldos)
(setvar "CMDECHO" 1)
本人是菜鸟，多谢！

ZZXXQQ

lys65 发表于 2015-3-2 09:20
请教ZZXXQQ，这几行是什么意思？
(setvar "CMDECHO" 0)
(setq oldos (getvar "OSMODE"))

一个是二楼说的，一个是关闭命令回显

lys65

有问题请教，3楼的程序28行"y"是什么意思？"ERASE" "P" ""又是什么意思？