[求助]帮我看看同一程序为什么会出现好几种不同结果

taylorzhang

(defun c:xt11()
(setvar "OSMODE" 0)
(setq cen1 (getpoint"\n请输入基准点："))
(setq rr (getdist cen1 "\n请输入大圆半径："))
(command "circle" cen1 rr)
(setq en1 (entlast))
(command "circle" cen1 (* rr 0.5))
(setq cen2 (polar cen1 0 rr))
(setq rr1 (getdist"\n请输入轮齿半径："))

(setq nn1 (getint"\n请输入滚轮齿数<5>："))
(if(null nn1) (setq nn1 5))

(setq ang 0 ss (ssadd))
(setq ang1 (/ pi 0.5 nn1))
;;绘制滚轮

(repeat nn1
(command "circle" cen2 rr1)
(setq ss (ssadd (entlast) ss))
(setq ang (+ ang ang1))
(setq cen2 (polar cen1 ang rr))
)
;;修剪大圆
(setq ang 0)
(repeat nn1
(command "trim" ss "" (polar cen1 ang rr) "")
(setq ang (+ ang ang1))
)
;;修剪小圆
(setq ang2 (* -1 (/ ang1 2.0)) ang3 (+ ang2 ang1) ang 0)
(repeat nn1
(command "trim" (polar cen1 ang2 rr) (polar cen1 ang3 rr) "" (polar cen1 ang (- rr rr1)) "")
(setq ang2 (+ ang2 ang1) ang3 (+ ang3 ang1) ang (+ ang ang1))
)
(setvar "OSMODE" 1)
(prin1)
)

ZZXXQQ

估计是剪裁未选到边界。这样改一下试试：

游客，本帖隐藏的内容需要发帖数高于 1 才可浏览，你当前发帖数只有 0

taylorzhang

谢谢版主，

我修改了下，加上(command "zoom" "o" ss "")就行，不加上这的话好像有时要出错，不知道为什么

(defun c:xt11()
(setvar "cmdecho" 0)
(setvar "OSMODE" 0)
(setq cen1 (getpoint"\n请输入基准点："))
(setq rr (getdist cen1 "\n请输入大圆半径："))
(command "circle" cen1 rr)
(setq en1 (entlast))

(setq cen2 (polar cen1 0 rr))
(setq rr1 (getdist"\n请输入轮齿半径："))

(setq nn1 (getint"\n请输入滚轮齿数<5>："))
(if(null nn1) (setq nn1 5))

(setq ang 0 ss (ssadd))
(setq ang1 (/ pi 0.5 nn1))
;;绘制小圆
(repeat nn1
(command "CIRCLE" cen2 rr1)
(setq ss (ssadd (entlast) ss))
(setq ang (+ ang ang1))
(setq cen2 (polar cen1 ang rr))
)

(command "zoom" "o" ss "")
;;修剪小圆
(setq  ang 0)
(repeat nn1
(command "trim"  "" (polar cen1 ang (- rr rr1)) "")
(setq ang (+ ang ang1))
)
;;修剪大圆
(setq ang 0)
(repeat nn1
(command "trim" ss "" (polar cen1 ang rr) "")
(setq ang (+ ang ang1))
)
(command "circle" cen1 (* rr 0.5))
(setvar "OSMODE" 1)
(setvar "cmdecho" 1)
(prin1)
)

ZZXXQQ

因为只能选择可见对象。

龙龙仔

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=74642

龙龙仔

3. ;;小圓不能太大
4. (defun C:XT11 (/ HOLDECHO HOLDOSMODE ANG ANG1 CEN1 CEN2 EN1 N NN1 RR RR1
5.         SS)
6.   (setq HOLDECHO (getvar "cmdecho"))
7.   (setvar "cmdecho" 0)
8.   (setq HOLDOSMODE (getvar "osmode"))
9.   (setvar "OSMODE" 0)
10.   (setq CEN1 (getpoint "\n請輸入基準點："))
11.   (setq RR (getdist CEN1 "\n請輸入大圓半徑："))
12.   (command "_.circle" CEN1 RR)
13.   (setq EN1 (entlast))
14.   (command "_.circle" CEN1 (* RR 0.5))
15.   (setq CEN2 (polar CEN1 0 RR))
16.   (setq RR1 (getdist "\n請輸入輪齒半徑："))
17.   (setq NN1 (getint "\n請輸入滾輪齒數<5>："))
18.   (if (null NN1)
19.     (setq NN1 5)
20.   )
21.   (setq ANG 0
22. SS  (ssadd)
23.   )
24.   (setq ANG1 (/ pi 0.5 NN1))
25.   ;;繪製滾輪
26.   (repeat NN1
27.     (command "_.circle" CEN2 RR1)
28.     (setq SS (ssadd (entlast) SS))
29.     (setq ANG (+ ANG ANG1))
30.     (setq CEN2 (polar CEN1 ANG RR))
31.   )
32.   ;;修剪大圓
33.   (setq ANG 0)
34.   (repeat NN1
35.     (command "_.trim" SS "" (list EN1 (polar CEN1 ANG RR)) "")
36.     (setq SS (ssadd (entlast) SS))
37.     (setq ANG (- ANG ANG1))
38.   )
39.   (setq SS (ssadd EN1 SS))
40.   ;;修剪小圓
41.   (setq ANG 0
42. N 0
43.   )
44.   (repeat NN1
45.     (command "_.trim"
46.       SS
47.       ""
48.       (list (ssname SS N) (polar CEN1 ANG (- RR RR1)))
49.       ""
50.     )
51.     (setq ANG (+ ANG ANG1)
52.    N   (1+ N)
53.     )
54.   )
55.   (setvar "OSMODE" HOLDOSMODE)
56.   (setvar "cmdecho" HOLDECHO)
57.   (prin1)
58. )

;;小圓不能太大 (defun C:XT11 (/ HOLDECHO HOLDOSMODE ANG ANG1 CEN1 CEN2 EN1 N NN1 RR RR1         SS)   (setq HOLDECHO (getvar "cmdecho"))   (setvar "cmdecho" 0)   (setq HOLDOSMODE (getvar "osmode"))   (setvar "OSMODE" 0)   (setq CEN1 (getpoint "\n請輸入基準點："))   (setq RR (getdist CEN1 "\n請輸入大圓半徑："))   (command "_.circle" CEN1 RR)   (setq EN1 (entlast))   (command "_.circle" CEN1 (* RR 0.5))   (setq CEN2 (polar CEN1 0 RR))   (setq RR1 (getdist "\n請輸入輪齒半徑："))   (setq NN1 (getint "\n請輸入滾輪齒數<5>："))   (if (null NN1)     (setq NN1 5)   )   (setq ANG 0 SS  (ssadd)   )   (setq ANG1 (/ pi 0.5 NN1))   ;;繪製滾輪   (repeat NN1     (command "_.circle" CEN2 RR1)     (setq SS (ssadd (entlast) SS))     (setq ANG (+ ANG ANG1))     (setq CEN2 (polar CEN1 ANG RR))   )   ;;修剪大圓   (setq ANG 0)   (repeat NN1     (command "_.trim" SS "" (list EN1 (polar CEN1 ANG RR)) "")     (setq SS (ssadd (entlast) SS))     (setq ANG (- ANG ANG1))   )   (setq SS (ssadd EN1 SS))   ;;修剪小圓   (setq ANG 0 N 0   )   (repeat NN1     (command "_.trim"       SS       ""       (list (ssname SS N) (polar CEN1 ANG (- RR RR1)))       ""     )     (setq ANG (+ ANG ANG1)    N   (1+ N)     )   )   (setvar "OSMODE" HOLDOSMODE)   (setvar "cmdecho" HOLDECHO)   (prin1) )