『求助』无法完成填充。不知道哪里错了，帮我看下好吗？（急）

lhly008

程序的局部。因为我不完全懂SSADD等等。哪位热心人能帮我看下吗 谢谢 (setq pt0 (getpoint "\n灯杆底部位置："))
(setq gd (getpoint "\n灯高位置："))
(setq xx (car pt0) yy (cadr pt0))
(setq xt (car gd) yt (cadr gd))
(setq aa1 (angle pt0 gd))
(setq bb1 (distance pt0 gd))
(setq bb2 (* bb1 (sin aa1)))
(setq bb (/ bb2 18))
(setq xx (car pt0) yy (cadr pt0))
(setq xt (car gd) yt (cadr gd))
(setq aa1 (angle pt0 gd))
(setq bb1 (distance pt0 gd))
(setq bb2 (* bb1 (sin aa1)))
(setq bb (/ bb2 18))
(setq pt1 (list (+ xx (* bb 1)) yy ))
(setq pt2 (list (+ xx (* bb 0.7)) (+ yy (* bb 2.8))))
(setq pt3 (list (car pt2) (+ (* bb 0.9) (cadr pt2))))
(setq pt4 (list (+ xx (* bb 0.35)) (+ (* bb 0.9) (cadr pt3))))
(setq pt5 (list (car pt4) (+ (* bb 10.4) (cadr pt4))))
(setq pt6 (list (+ (car pt5) (* bb 0.1)) (cadr pt5)))
(setq pt7 (list (car pt6) (+ (* bb 1.8) (cadr pt6))))
(setq pt8 (list (- (car pt7) (* bb 0.15)) (+ (cadr pt7) (* bb 0.5))))
(setq pt9 (list xx (cadr pt8)))
(setq pt10 (list (+ (car pt7) (* bb 0.9)) (cadr pt7)))
(setq pt11 (list (+ (car pt10) (* bb 3)) (+ (cadr pt10) (* bb 0.66))))
(setvar "cecolor" (rtos cc1))
(command "line" pt0 pt1 "")
(setq sum (ssadd) first (entlast))
(ssadd (entlast) sum)
(command "arc" pt1 "e" pt2 "a" -31)
(ssadd (entlast) sum)
(command "pline" pt2 pt3 "")
(ssadd (entlast) sum)
(command "arc" pt3 "e" pt4 "a" 118)
(ssadd (entlast) sum)
(command "pline" pt4 pt5 pt6 pt7 "")
(ssadd (entlast) sum)
(command "arc" pt7 "e" pt8 "a" 90)
(ssadd (entlast) sum)
(command "pline" pt8 pt9 "")
(ssadd (entlast) sum)
(command "pline" pt7 pt10 "")
(ssadd (entlast) sum)
(command "arc" pt10 "e" pt11 "a" 160)
(ssadd (entlast) sum)
(command "mirror" sum "" pt0 pt9 "")
(ssadd (entlast) sum)
(setvar "cecolor" (rtos cc1))
(command "hatch" "solid" sum "")
(setq pt12 (polar pt9 (/ pi 2) (* bb 0.3)))
(command "pline" pt9 "w" 3 0 pt12 "")

sieben

(defun c:dd ()
;;我修改后程序可顺利运行结束
(setq pt0 (getpoint "\n灯杆底部位置："))
(setq gd (getpoint "\n灯高位置："))
(setq xx (car pt0)
yy (cadr pt0)
)
(setq xt (car gd)
yt (cadr gd)
)
(setq aa1 (angle pt0 gd))
(setq bb1 (distance pt0 gd))
(setq bb2 (* bb1 (sin aa1)))
(setq bb (/ bb2 18))
(setq xx (car pt0)
yy (cadr pt0)
)
(setq xt (car gd)
yt (cadr gd)
)
(setq aa1 (angle pt0 gd))
(setq bb1 (distance pt0 gd))
(setq bb2 (* bb1 (sin aa1)))
(setq bb (/ bb2 18))
(setq pt1 (list (+ xx (* bb 1)) yy))
(setq pt2 (list (+ xx (* bb 0.7)) (+ yy (* bb 2.8))))
(setq pt3 (list (car pt2) (+ (* bb 0.9) (cadr pt2))))
(setq pt4 (list (+ xx (* bb 0.35)) (+ (* bb 0.9) (cadr pt3))))
(setq pt5 (list (car pt4) (+ (* bb 10.4) (cadr pt4))))
(setq pt6 (list (+ (car pt5) (* bb 0.1)) (cadr pt5)))
(setq pt7 (list (car pt6) (+ (* bb 1.8) (cadr pt6))))
(setq pt8 (list (- (car pt7) (* bb 0.15)) (+ (cadr pt7) (* bb 0.5))))
(setq pt9 (list xx (cadr pt8)))
(setq pt10 (list (+ (car pt7) (* bb 0.9)) (cadr pt7)))
(setq pt11 (list (+ (car pt10) (* bb 3)) (+ (cadr pt10) (* bb 0.66))))
;;;;;;;;;;;;;;;;;;;;;;;;
;;(setvar "cecolor" (rtos cc1))
;;(rtos cc1)出错，因为CCL为NIL
(setvar "cecolor" "7")
;;;;;;;;;;;;;;;;;;;
(command "line" pt0 pt1 "")
(setq sum (ssadd)
first (entlast)
)
(ssadd (entlast) sum)
(command "arc" pt1 "e" pt2 "a" -31)
(ssadd (entlast) sum)
(command "pline" pt2 pt3 "")
(ssadd (entlast) sum)
(command "arc" pt3 "e" pt4 "a" 118)
(ssadd (entlast) sum)
(command "pline" pt4 pt5 pt6 pt7 "")
(ssadd (entlast) sum)
(command "arc" pt7 "e" pt8 "a" 90)
(ssadd (entlast) sum)
(command "pline" pt8 pt9 "")
(ssadd (entlast) sum)
(command "pline" pt7 pt10 "")
(ssadd (entlast) sum)
(command "arc" pt10 "e" pt11 "a" 160)
(ssadd (entlast) sum)
(command "mirror" sum "" pt0 pt9 "")
(ssadd (entlast) sum)
;;;;;;;;;;;;;;;;;;;;;
;;(setvar "cecolor" (rtos cc1))
;;(rtos cc1)出错，因为CCL为NIL
(setvar "cecolor" "7")
;;;;;;;;;;;;;;;;;;;;
(command "hatch" "solid" sum "")
(setq pt12 (polar pt9 (/ pi 2) (* bb 0.3)))
(command "pline" pt9 "w" 3 0 pt12 "")
(princ)
)

ljpnb

不能填充是因为你的填充边界多选几个物体进去了，所以出错，我将程序部份作了一些调整，以作参考。

2. (defun c:test ()
3.    (setq pt0 (getpoint "\n灯杆底部位置："))
4.    (setq gd (getpoint pt0 "\n灯高位置："))
5.    (setq os (getvar "osmode"))
6.    (setvar "cmdecho" 0)
7.    (setvar "osmode" 0)
8.    (setq  xx (car pt0)
9.   yy (cadr pt0)
10.    )
11.    (setq  xt (car gd)
12.   yt (cadr gd)
13.    )
14.    (setq aa1 (angle pt0 gd))
15.    (setq bb1 (distance pt0 gd))
16.    (setq bb2 (* bb1 (sin aa1)))
17.    (setq bb (/ bb2 18))
18.    (setq  xx (car pt0)
19.   yy (cadr pt0)
20.    )
21.    (setq  xt (car gd)
22.   yt (cadr gd)
23.    )
24.    (setq aa1 (angle pt0 gd))
25.    (setq bb1 (distance pt0 gd))
26.    (setq bb2 (* bb1 (sin aa1)))
27.    (setq bb (/ bb2 18))
28.    (setq pt1 (list (+ xx (* bb 1)) yy))
29.    (setq pt2 (list (+ xx (* bb 0.7)) (+ yy (* bb 2.8))))
30.    (setq pt3 (list (car pt2) (+ (* bb 0.9) (cadr pt2))))
31.    (setq pt4 (list (+ xx (* bb 0.35)) (+ (* bb 0.9) (cadr pt3))))
32.    (setq pt5 (list (car pt4) (+ (* bb 10.4) (cadr pt4))))
33.    (setq pt6 (list (+ (car pt5) (* bb 0.1)) (cadr pt5)))
34.    (setq pt7 (list (car pt6) (+ (* bb 1.8) (cadr pt6))))
35.    (setq pt8 (list (- (car pt7) (* bb 0.15)) (+ (cadr pt7) (* bb 0.5))))
36.    (setq pt9 (list xx (cadr pt8)))
37.    (setq pt10 (list (+ (car pt7) (* bb 0.9)) (cadr pt7)))
38.    (setq pt11 (list (+ (car pt10) (* bb 3)) (+ (cadr pt10) (* bb 0.66))))
39.    ;;(setvar "cecolor" (rtos cc1))
40.    (setq ent (entlast))
41.    (setq sum (ssadd))
42.    (command "line" pt0 pt1 "")
43.    (command "arc" pt1 "e" pt2 "a" -31)
44.    (command "pline" pt2 pt3 "")
45.    (command "arc" pt3 "e" pt4 "a" 118)
46.    (command "pline" pt4 pt5 pt6 pt7 "")
47.    (command "arc" pt7 "e" pt8 "a" 90)
48.    (command "pline" pt8 pt9 "")
49.    (command "pline" pt7 pt10 "")
50.    (command "arc" pt10 "e" pt11 "a" 160)
51.    (if (= ent nil)
52.        (setq sum (ssget "all"))
53.        (while (setq ent (entnext ent))
54.            (ssadd ent sum)
55.        )
56.    )
57.    (command "mirror" sum "" pt0 pt9 "")
58.    (setq pnt (polar pt0 (angle pt0 pt9) 1))
59.    ;; (setvar "cecolor" (rtos cc1))
60.    ;;(command "hatch" "solid" sum "")
61.    (command "bhatch" "p" "solid" pnt "")
62.    (setq pt12 (polar pt9 (/ pi 2) (* bb 0.3)))
63.    (command "pline" pt9 "w" 3 0 pt12 "")
64.    (setvar "osmode" os)
65.    (setvar "cmdecho" 1)   (princ)
66. )

(defun c:test ()    (setq pt0 (getpoint "\n灯杆底部位置："))    (setq gd (getpoint pt0 "\n灯高位置："))    (setq os (getvar "osmode"))    (setvar "cmdecho" 0)    (setvar "osmode" 0)    (setq  xx (car pt0)   yy (cadr pt0)    )    (setq  xt (car gd)   yt (cadr gd)    )    (setq aa1 (angle pt0 gd))    (setq bb1 (distance pt0 gd))    (setq bb2 (* bb1 (sin aa1)))    (setq bb (/ bb2 18))    (setq  xx (car pt0)   yy (cadr pt0)    )    (setq  xt (car gd)   yt (cadr gd)    )    (setq aa1 (angle pt0 gd))    (setq bb1 (distance pt0 gd))    (setq bb2 (* bb1 (sin aa1)))    (setq bb (/ bb2 18))    (setq pt1 (list (+ xx (* bb 1)) yy))    (setq pt2 (list (+ xx (* bb 0.7)) (+ yy (* bb 2.8))))    (setq pt3 (list (car pt2) (+ (* bb 0.9) (cadr pt2))))    (setq pt4 (list (+ xx (* bb 0.35)) (+ (* bb 0.9) (cadr pt3))))    (setq pt5 (list (car pt4) (+ (* bb 10.4) (cadr pt4))))    (setq pt6 (list (+ (car pt5) (* bb 0.1)) (cadr pt5)))    (setq pt7 (list (car pt6) (+ (* bb 1.8) (cadr pt6))))    (setq pt8 (list (- (car pt7) (* bb 0.15)) (+ (cadr pt7) (* bb 0.5))))    (setq pt9 (list xx (cadr pt8)))    (setq pt10 (list (+ (car pt7) (* bb 0.9)) (cadr pt7)))    (setq pt11 (list (+ (car pt10) (* bb 3)) (+ (cadr pt10) (* bb 0.66))))    ;;(setvar "cecolor" (rtos cc1))    (setq ent (entlast))    (setq sum (ssadd))    (command "line" pt0 pt1 "")    (command "arc" pt1 "e" pt2 "a" -31)    (command "pline" pt2 pt3 "")    (command "arc" pt3 "e" pt4 "a" 118)    (command "pline" pt4 pt5 pt6 pt7 "")    (command "arc" pt7 "e" pt8 "a" 90)    (command "pline" pt8 pt9 "")    (command "pline" pt7 pt10 "")    (command "arc" pt10 "e" pt11 "a" 160)    (if (= ent nil)        (setq sum (ssget "all"))        (while (setq ent (entnext ent))            (ssadd ent sum)        )    )    (command "mirror" sum "" pt0 pt9 "")    (setq pnt (polar pt0 (angle pt0 pt9) 1))    ;; (setvar "cecolor" (rtos cc1))    ;;(command "hatch" "solid" sum "")    (command "bhatch" "p" "solid" pnt "")    (setq pt12 (polar pt9 (/ pi 2) (* bb 0.3)))    (command "pline" pt9 "w" 3 0 pt12 "")    (setvar "osmode" os)    (setvar "cmdecho" 1)   (princ) )

lhly008

太感谢两位大侠了，我不是很明白ssadd的用法


比如说我们需要保存每次画的线在选择集里面，然后对集合里面的整体做动作，是不是这个意思呢，用ssadd。


还有我上面发的程序里没定义cc1等颜色，这个是局部，所以我没写上来。

lhly008

看了二位的修改程序，更觉得我是个菜鸟了，受益匪浅。不过也就是应付毕业设计，没有办法。不过以后有机会还是学学lisp，挺不错的。

无痕

看了二位的程序，我也觉得我是菜鸟了：（（（（

lhly008

能不能把填充颜色设置成渐变色呢？ 如何操作呢？