大家帮忙看一下,这个程序错在哪里?

叶文军

以下是自动连线的程序,就是能过输入点号用PL线连接相应的点,但是执行后只能连第一个点,接下去就出错了 (defun c:PL (/ str)
(VL-LOAD-COM) (setq AcadObject(vlax-get-acad-object) AcadDocument(vla-get-ActiveDocument AcadObject) mSpace(vla-get-ModelSpace AcadDocument) )

(fen)
(if (/= zb nil)
(command "_pline" zb))


)
(defun fen ()
(setq a (getstring "输入点号:"))
(setq sel (ssget "_x" '((0 . "TEXT"))))
(setq n (sslength sel))
(setq i 0)
(while (< i n)
(setq sf (entget (ssname sel i)))
(setq dianhao(cdr (assoc 1 sf)))
(if (= dianhao a)
(progn(setq zuobiao(cdr (assoc 10 sf)))
(setq zbX(-(car zuobiao) 0.5))
(setq zbY(+(car(cdr zuobiao)) 0.75))

(setq zb(list zbX zbY))
)
)
(setq i (+ i 1))
)

)

meflying

给个调试图先,或者说说运行这样的程序需要什么条件

叶文军

也没其它什么条件,就是通过输入点号,然后程序找到它,并用PL线把其按照输入的顺序给连起来

meflying

也不知道你上面的程序是哪儿抄来改的,,,这样可学不好,弄一个程序来至少要把它大致看明白了

2. (defun c:PL (/ str)
3.    (VL-LOAD-COM)
4.    (fen)
5.    (if zb
6.        (progn
7.            (command "_pline")
8.            (mapcar 'command zb)
9.            (command "")
10.        )
11.    )
12.    (princ)
13. )(defun fen ()
14.    (setq b nil)
15.    (while (/= (setq a (getstring "输入点号:")) "")
16.        (setq b (append b (list a)))
17.    )
18.    (setq i 0 zb nil)
19.    (repeat (length b)
20.        (setq dianhao (nth i b))
21.        (setq ent (ssname (ssget "x" (list '(0 . "TEXT") (cons 1 dianhao))) 0))
22.        (setq sf (entget ent))
23.        (if (member dianhao b)
24.            (progn(setq zuobiao(cdr (assoc 10 sf)))
25.                    (setq zbX(-(car zuobiao) 0.5))
26.                    (setq zbY(+(car(cdr zuobiao)) 0.75))                 
27.                    (setq zb(append zb (list (list zbX zbY))))
28.            )
29.        )
30.        (setq i (+ i 1))
31.    )
32.    zb
33. )

(defun c:PL (/ str)    (VL-LOAD-COM)    (fen)    (if zb        (progn            (command "_pline")            (mapcar 'command zb)            (command "")        )    )    (princ) )(defun fen ()    (setq b nil)    (while (/= (setq a (getstring "输入点号:")) "")        (setq b (append b (list a)))    )    (setq i 0 zb nil)    (repeat (length b)        (setq dianhao (nth i b))        (setq ent (ssname (ssget "x" (list '(0 . "TEXT") (cons 1 dianhao))) 0))        (setq sf (entget ent))        (if (member dianhao b)            (progn(setq zuobiao(cdr (assoc 10 sf)))                    (setq zbX(-(car zuobiao) 0.5))                    (setq zbY(+(car(cdr zuobiao)) 0.75))                                     (setq zb(append zb (list (list zbX zbY))))            )        )        (setq i (+ i 1))    )    zb )

龙龙仔

2. ;;那些点似乎是多余的(defun C:PL (/ LST A)
3.    (setvar "osmode" 0)
4.    (setq LST (FEN))
5.    (command "_.pline")
6.    (while (and (setq A (getstring "输入点号: "))
7.              (assoc A LST)
8.    )
9.        (command (cadr (assoc A LST)))
10.    )
11.    (command "")
12.    (princ)
13. )(defun FEN (/ LST SEL N I SF DIANHAO ZUOBIAO ZBX ZBY ZB)
14.    (setq SEL (ssget "_x" '((0 . "TEXT"))))
15.    (setq N (sslength SEL))
16.    (setq I 0)
17.    (while (< I N)
18.        (setq SF (entget (ssname SEL I)))
19.        (setq DIANHAO (cdr (assoc 1 SF)))
20.        (setq ZUOBIAO (cdr (assoc 10 SF)))
21.        (setq ZBX (- (car ZUOBIAO) 0.5))
22.        (setq ZBY (+ (car (cdr ZUOBIAO)) 0.75))
23.        (setq ZB (list ZBX ZBY))
24.        (setq LST (cons (list DIANHAO ZB) LST))
25.        (setq I (+ I 1))
26.    )
27.    LST
28. )

;;那些点似乎是多余的(defun C:PL (/ LST A)    (setvar "osmode" 0)    (setq LST (FEN))    (command "_.pline")    (while (and (setq A (getstring "输入点号: "))              (assoc A LST)    )        (command (cadr (assoc A LST)))    )    (command "")    (princ) )(defun FEN (/ LST SEL N I SF DIANHAO ZUOBIAO ZBX ZBY ZB)    (setq SEL (ssget "_x" '((0 . "TEXT"))))    (setq N (sslength SEL))    (setq I 0)    (while (< I N)        (setq SF (entget (ssname SEL I)))        (setq DIANHAO (cdr (assoc 1 SF)))        (setq ZUOBIAO (cdr (assoc 10 SF)))        (setq ZBX (- (car ZUOBIAO) 0.5))        (setq ZBY (+ (car (cdr ZUOBIAO)) 0.75))        (setq ZB (list ZBX ZBY))        (setq LST (cons (list DIANHAO ZB) LST))        (setq I (+ I 1))    )    LST )

叶文军

我并没有改它,是论坛上的一个朋友给我写的

叶文军

太感谢你们俩了,真的谢谢