同样的代码，为什么上一行可以得到数据，下一行就不行。

川雪

2. (defun c:l2w()
   
3. (setvar "cmdecho" 0)
   
4.   (setq en (entsel "\n 选取直线："))
   
5.   (setq nn (getint "\n 重复次数<5>:"))
   
6.   (if (null nn) (set nn 5))
   
7.   (setq endata (entget en))
   
8.   (setq pt_10 (assoc 10 endata));用!pt_10可以得到10，
   
9.   (setq pt_11 (assoc 11 endata));用!pt_11只能得到nil。
   
10.   (setq ang (angle pt_10 pt_11))
    
11.   (setq dd (distance pt_10 pt_11))
    
12.   (setq bas1 pt_10)
    
13.   (setq dd_nn (/ dd nn))
    
14.   (command "pline" bas1 "a" "a" 180)
    
15.   (repeat nn
    
16.     (setq bas2 (polar bas1 ang dd_nn))
    
17.     (command bas2)
    
18.     (setq bas1 bas2)
    
19.     )
    
20.   (command "")
    
21.   (entdel en)
    
22.   )

(defun c:l2w()<br /> (setvar "cmdecho" 0)<br />   (setq en (entsel "\n 选取直线："))<br />   (setq nn (getint "\n 重复次数<5>:"))<br />   (if (null nn) (set nn 5))<br />   (setq endata (entget en))<br />   (setq pt_10 (assoc 10 endata));用!pt_10可以得到10，<br />   (setq pt_11 (assoc 11 endata));用!pt_11只能得到nil。<br />   (setq ang (angle pt_10 pt_11))<br />   (setq dd (distance pt_10 pt_11))<br />   (setq bas1 pt_10)<br />   (setq dd_nn (/ dd nn))<br />   (command "pline" bas1 "a" "a" 180)<br />   (repeat nn<br />     (setq bas2 (polar bas1 ang dd_nn))<br />     (command bas2)<br />     (setq bas1 bas2)<br />     )<br />   (command "")<br />   (entdel en)<br />   )

川雪

上面第7行与第8行。同样的代码，一个能得到数据另一个就不行。

yshf

将：(setq endata (entget en))
改为：(setq endata (entget (car en)))

entsel
提示用户通过指定一个点来选择单个对象（图元）
(entsel [msg])

参数

msg

用于提示用户的字符串。如果省略该参数，则提示信息为“选择对象”。

返回值

表，其中第一个元素是用户所选对象的图元名，第二个元素是用户选择对象时指定的拾取点的坐标值（用当前 UCS 表示）。

川雪

yshf 发表于 2022-7-31 21:18
将：(setq endata (entget en))
改为：(setq endata (entget (car en)))

还是不行。

tigcat

(defun c:l2w()
(setvar "cmdecho" 0)
  (setq en (entsel "\n 选取直线："))
  (setq nn (getint "\n 重复次数<5>:"))
  (if (null nn) (setq nn 5))
  (setq endata (entget (car en)))
  (setq pt_10 (cdr(assoc 10 endata)));用!pt_10可以得到10，
  (setq pt_11 (cdr(assoc 11 endata)));用!pt_11只能得到nil。
  (setq ang (angle pt_10 pt_11))
  (setq dd (distance pt_10 pt_11))
  (setq bas1 pt_10)
  (setq dd_nn (/ dd nn))
  (command "pline" bas1 "a" "a" 180)
  (repeat nn
    (setq bas2 (polar bas1 ang dd_nn))
    (command bas2)
    (setq bas1 bas2)
    )
  (command "")
  (entdel (car en))
  )

yshf

(defun c:l2w()
  (setvar "cmdecho" 0)
  (If (setq en (entsel "\n 选取直线："))
      (progn
         (setq nn (getint "\n 重复次数<5>:"))
         (if (null nn) (setq nn 5))
         (setq endata (entget (car en)))
         (setq pt_10 (cdr (assoc 10 endata)));用!pt_10可以得到10，
         (setq pt_11 (cdr (assoc 11 endata)));用!pt_11只能得到nil。
         (setq ang (angle pt_10 pt_11))
         (setq dd (distance pt_10 pt_11))
         (setq bas1 pt_10)
         (setq dd_nn (/ dd nn))
         (command "pline" bas1 "a" "a" 180)
         (repeat nn
             (setq bas2 (polar bas1 ang dd_nn))
             (command bas2)
             (setq bas1 bas2)
         )
         (command "")
         (entdel (car en))
      )
   )
   (princ)
)

hh_lj007

5、6楼是正解

川雪

谢谢两位。

川雪

能解释一下吗？