[求助]：帮忙看看下面获取图元信息的代码错在哪，为何运行时老出现“；错误，参数太多

hq740311

(defun C:PRINTDXF ( )
  (setq ent (entlast))     ; Set ent to last entity.
  (setq entl (entget ent)) ; Set entl to association list of
                           ; last entity.
  (setq ct 0)              ; Set ct (a counter) to 0.
  (textpage)               ; Switch to the text screen.
  (princ "\nentget of last entity:")
  (repeat (length entl)    ; Repeat for number of members in list:
    (print (nth ct entl))  ; Print a newline, then each list
                           ; member.
    (setq ct (1+ ct))      ; Increments the counter by one.
  )
  (princ)                  ; Exit quietly.
)


为何我把第一行(defun C:PRINTDXF ( )和最后一行)注释掉，就没错了？那这函数是怎么定义的呢？

takeiteasy

我运行了一遍，没有问题呀？
能不能把问题再说得详细些？

hq740311

你是怎么运行的，请告诉我，是不是我的方法不对呀

chydraulic

我运行了你的代码，可以没问题，可能是你的autocad图形没有被激活!
我把你的代码改了一下，可以显示多个图元的dxf信息。
(defun C:PRINTDXF ( )
(setq ent (ssget))
  (textpage)
  (IF (NOT ENT)
    (PRINC "\nNO ENTITIES picket")
    (PROGN
      (SETQ NUM (SSLENGTH ENT) ft 0)
      (while ( <= ft (- num 1))
        (setq ent1name (ssname ent ft) st 0)
        (setq entl (entget ent1name))
       (repeat (length entl)
       (print (nth st entl))
         (setq st (1+ st))
  )
        (setq ft (1+ ft))
        )
      ))
(princ)
)

Alan8088

显示多个倒不好了，分不清哪个是哪个图形的啊，呵呵。。

chydraulic

呵呵，也对，可能是我经常搞批量处理的习惯！行我再改一个，可以任意选择实体显示dxf信息，(defun C:PRINTDXF ( )
(setq ent (entsel))
(setq entc (car ent))
(setq entl (entget entc))
(setq ct 0) ; Set ct (a counter) to 0.
(textpage) ; Switch to the text screen.
(princ "\nentget of last entity:")
(repeat (length entl) ; Repeat for number of members in list:
(print (nth ct entl)) ; Print a newline, then each list
; member.
(setq ct (1+ ct)) ; Increments the counter by one.
)
(princ) ; Exit quietly.
)