[求助]：为啥执行不了，帮忙看看

gucci218

目的：已知date中是pl的顶点列表（例如：((91.3672 162.024) (182.995 101.687) (328.245 123.013) (400.089 81.9221))，想在pl的中点插入文字

(defun c:bz(a b / ii pp ppt bp)
    (setvar "cmdecho" 0)  
    (setq pp (nth 0 date))
    (setq ii 1)   
  (repeat (1- (length date))
    (setq ppt (nth ii date)
    (setq bp (mapcar '(lambda(a b) (/ (+ a b) 2)) pp ppt))
    (command "text" bp "3.0" "" "DN200")   
    (setq pp ppt)
    (setq ii (1+ ii))
  )
(prin1)
)

lijiao

有两个问题：
1、你定义的是一个命令，后面不要带自变量
2、在REPEAT一行少了一个括号
更改后为：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:bz (/ ii pp ppt bp)
   
5.   (setvar "cmdecho" 0)
   
6.   (setq pp (nth 0 date))
   
7.   (setq ii 1)
   
8.   (repeat (1- (length date))
   
9.     (setq ppt (nth ii date))
   
10.     (setq bp (mapcar '(lambda (a b) (/ (+ a b) 2)) pp ppt))
    
11.     (command "text" bp "3.0" "" "DN200")
    
12.     (setq pp ppt)
    
13.     (setq ii (1+ ii))
    
14.   )
    
15.   (princ)
    
16. )
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:bz (/ ii pp ppt bp)<br />   (setvar "cmdecho" 0)<br />   (setq pp (nth 0 date))<br />   (setq ii 1)<br />   (repeat (1- (length date))<br />     (setq ppt (nth ii date))<br />     (setq bp (mapcar '(lambda (a b) (/ (+ a b) 2)) pp ppt))<br />     (command "text" bp "3.0" "" "DN200")<br />     (setq pp ppt)<br />     (setq ii (1+ ii))<br />   )<br />   (princ)<br /> )<br />   [/FONT]<br />

gucci218

谢谢