[求助]：在lisp中执行pline命令的代码应该如何编写？

akang

在lisp中，使用command函数执行“pline”命令时，能够同时实现直线和圆弧的绘图功能(即如在cad中的“a”、“L"参数的互换)、并能够获取所画出的实体的程序代码应该如何？

PLgis

先构造一个表
表中的元素可以是点、"a","l", "w","close"
但必须用点开头。

2. 
   
3. ;
   
4. ;(MyPLine pttab)
   
5. ;用pttab画出多义线
   
6. ;
   
7. ;参数
   
8. ;  pttab         线结点表
   
9. ;
   
10. ;返回值
    
11. ;  went          多义线图元
    
12. ;-------------------------------------------------------------------
    
13. (defun MyPLine(pttab / pt)
    
14.   (if(= (last pttab) "CLOSE")
    
15.     (progn
    
16.       (command "_.pline")(foreach pt pttab(command pt))
    
17.     )
    
18.     (progn
    
19.       (command "_.pline")(foreach pt pttab(command pt))(command "")
    
20.     )
    
21.   )
    
22.   (entlast)
    
23. )
    
24. ;
    

<br /> ;<br /> ;(MyPLine pttab)<br /> ;用pttab画出多义线<br /> ;<br /> ;参数<br /> ;  pttab         线结点表<br /> ;<br /> ;返回值<br /> ;  went          多义线图元<br /> ;-------------------------------------------------------------------<br /> (defun MyPLine(pttab / pt)<br />   (if(= (last pttab) "CLOSE")<br />     (progn<br />       (command "_.pline")(foreach pt pttab(command pt))<br />     )<br />     (progn<br />       (command "_.pline")(foreach pt pttab(command pt))(command "")<br />     )<br />   )<br />   (entlast)<br /> )<br /> ;<br />

aeo

(defun c:test()
(command ".pline" )
(while (/= ""(getvar "cmdnames"))(command pause))
(entlast)
)

akang

非常感谢以上两位，不过还要请教aeo
(/= ""(getvar "cmdnames"))
语句的作用的是什么？
是不是可以这样理解：pline命令中，所输入的“a”、“l”、“cl”等参数都可以认为是通透命令的一种？

秋枫

最初由 akang 发布
[B]非常感谢以上两位，不过还要请教aeo
(/= ""(getvar "cmdnames"))
语句的作用的是什么？
是不是可以这样理解：pline命令中，所输入的“a”、“l”、“cl”等参数都可以认为是通透命令的一种？ [/B]

(/= ""(getvar "cmdnames"))
用于判断当前是不是仍然在PLINE命令中

所输入的“a”、“l”、“cl”等参数都可以认为是通透命令的一种？
不可以这么认为。这些是命令的选项。

陌生人

最初由 aeo 发布
[B](defun c:test()
(command ".pline" )
(while (/= ""(getvar "cmdnames"))(command pause))
(entlast)
) [/B]

加一点

2. 
   
3. (defun c:test(/ oce)
   
4. (setq oce (getvar "cmdecho"))
   
5. (setvar "cmdecho" 1)
   
6. (command ".pline" )
   
7. (while (/= ""(getvar "cmdnames"))(command pause))
   
8. (setvar "cmdecho" oce)
   
9. (entlast)
   
10. )
    

<br /> (defun c:test(/ oce)<br /> (setq oce (getvar "cmdecho"))<br /> (setvar "cmdecho" 1)<br /> (command ".pline" )<br /> (while (/= ""(getvar "cmdnames"))(command pause))<br /> (setvar "cmdecho" oce)<br /> (entlast)<br /> ) <br />