[求助]：lisp中，同一命令下怎么获取交互绘制直线的图元名

下里巴云

lisp中，同一命令下怎么获取交互绘制直线的图元名！
就是我现在绘制了一条pl线，当绘制完毕的同时我能够得到该线的图元名，通过图元名得到图元表，提取坐标等。
我用了(setq e (entlast)).不要用的，它总是先执行entlast,然后才执行交互绘制直线，我肯苦恼啊

Underway

不是那么明白,可提供原程序码吗?

gysjy

最初由 下里巴云 发布
[B]lisp中，同一命令下怎么获取交互绘制直线的图元名！
就是我现在绘制了一条pl线，当绘制完毕的同时我能够得到该线的图元名，通过图元名得到图元表，提取坐标等。
我用了(setq e (entlast)).不要用的，它总是先执行e... [/B]

试试先执行PLINE命令，再求最后的图元：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:nn()
   
5.   (command "pline" pause)
   
6.   (setq e (entlast))
   
7.   (print)
   
8. )   
   
9.   [/FONT]
   

<br />   [FONT=courier new]<br /> (defun c:nn()<br />   (command "pline" pause)<br />   (setq e (entlast))<br />   (print)<br /> )   <br />   [/FONT]<br />

下里巴云

我就是这么弄的啊，不好用，他总是先执行(setq e (entlast))，然后才执行(command "pline" )，尽管我把(setq e (entlast))放在pline的后面。我要求的pline是交互画入的，绘制命令启动前是不确定绘制位置的。诶，恼火啊，怎么实现呢

Underway

且说说您的代码是如何安排底

gysjy

最初由 下里巴云 发布
[B]我就是这么弄的啊，不好用，他总是先执行(setq e (entlast))，然后才执行(command "pline" )，尽管我把(setq e (entlast))放在pline的后面。... [/B]

不对。代码(defun c:nn()
  (command "pline" pause)
  (setq e (entlast))
  (print)
)获得的就是刚绘制好的PLINE线。你检查一下"pline"命令后面有没有加pause。

下里巴云

(defun c :nn(/)
  (command "pline" pause)
  (setq XL (entlast))
  (setq XLlist (entget XL));得实体图元表
  ;;(setq entline (ssadd));;创建一个空的选择集st))
  ;;(ssadd XL entline)

  ;;LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
  (setq m 0  ;;递增变量
        lst '() ;;初始化一个表
  )
  (while (/= (setq ei (nth m XLlist)) nil);;逐一循环图元表内的元素，寻找点表
    (progn
         (if(= (car ei) 10)                ;;坐标点存储在索引为10的表中
          (progn
            (setq p(cdr ei))
            (setq lst (cons p lst));;在已知表的头部插入元素的函数
          )
         );end if
         (setq m (1+ m))
      )
  );;end while
  (princ "\n")
  (princ lst)  
  (print)
  (princ)
)
我这样完成的程序，好像得到了本直线的图元名，但是和我的目标还远，怎么只能获得pl线的首坐标呢，我想获得全部坐标，没有成功

Underway

(defun c:nn (/)
  (command "pline")
  (while (= (logand (getvar "CmdActice") 1) 1)
    (command pause)
  )
  
  (setq XL (entlast))
  
  ...

zml84

楼上的是正解。

楼主的需求很是奇怪。

下里巴云

谢谢各位了，嘿嘿，我明白了，弄出来了