[求助]：不太明白函数参数的错误

gucci218

(defun pldate(/ ent entdate i n sublist key pt )
    (setq ent (car (entsel)))
    (setq entdate (entget ent))
    (setq date '())
    (setq i 0)   
    (setq n (length entdate))  
(repeat n
    (setq sublist (nth i entdate))
    (setq key (car sublist))
   (if (= key 10)
    (progn
    (setq pt (cdr sublist))
    (setq date (cons pt date))
    )
   )
(setq i (1+ i))
)
   (setq date (reverse date))
(princ date)
(prin1)
)
(defun c:bz(a b / pt ii pt1 bp)
    (setvar "cmdecho" 0)  
    (setq pt (nth 0 (pldate)))
    (setq ii 1)   
  (repeat (1- (length (pldate)))
    (setq pt1 (nth ii (pldate)))
    (setq bp (mapcar '(lambda(a b) (/ (+ a b) 2)) pt pt1))
    (command "text" bp "3.0" "" "DN200")
    (setq pt pt1)
    (setq ii (1+ ii))
  )
(prin1)
)

taner

剛才不是有位版主解說過了嗎.自定義的命令裏不要有變量.(defun c:bz(a b / pt ii pt1 bp)......),ab去掉

gucci218

为啥不能有自变量，还是通不过，如何调用上面定义的函数，请教

taner

最初由 taner 发布
[B]剛才不是有位版主解說過了嗎.自定義的命令裏不要有變量.(defun c:bz(a b / pt ii pt1 bp)......),ab去掉 [/B]

細心點,看看有多少低級錯誤!

[PHP](defun pldate (/ ent entdate i n sublist key pt)
  (setq ent (car (entsel)))
  (setq entdate (entget ent))
  (setq plvertexs '())
  (setq i 0)
  (setq n (length entdate))
  (repeat n
    (setq sublist (nth i entdate))
    (setq key (car sublist))
    (if (= key 10)
      (progn
        (setq pt (cdr sublist))
        (setq plvertexs (cons pt plvertexs))
      )
    )
    (setq i (1+ i))
  )
  (setq plvertexs (reverse plvertexs))
  plvertexs
)
(defun c:bz (/ pt ii pt1 bp)
  (setvar "cmdecho" 0)
(pldate)
  (setq pt (nth 0 plvertexs))
  (setq ii 1)
  (repeat (1- (length plvertexs))
    (setq pt1 (nth ii plvertexs))
    (setq bp (mapcar
               '(lambda (x)
                  (/ x 2)
                )
               (mapcar
                 '+
                 pt
                 pt1
               )
             )
    )
    (command "text" bp "3.0" "" "DN200")
    (setq pt pt1)
    (setq ii (1+ ii))
  )
  (prin1)
)
[/PHP]

gucci218

老大，你的好像也通不过，你也不先试试。
Command: bz
error: invalid argument
(NTH 0 PLVERTEXS)
(SETQ PT (NTH 0 PLVERTEXS))
(C:BZ)
*Cancel*

taner

最初由 gucci218 发布
[B]老大，你的好像也通不过，你也不先试试。
Command: bz
error: invalid argument
(NTH 0 PLVERTEXS)
(SETQ PT (NTH 0 PLVERTEXS))
(C:BZ)
*Cancel* [/B]

忘記加(pldate)這句.

gucci218

呵呵，你批评我的又作用到你的身上，不过还是感谢你。