如何实现cad的pl命令绘制时的动态输入效果呢？

丰丰色色

我想实现与cad的pl命令一样的效果，在开启动态输入的前提下，还请各位大侠帮忙，

自贡黄明儒

1. ;;[功能] 调用Autocad自身命令
   
2. ;;(HH:command "PLINE")
   
3. (defun HH:command (commandstr / E E0)
   
4.   (setq e0 (entlast))
   
5.   (apply 'command (list (strcat "_." commandstr)))
   
6.   (while (equal (getvar "cmdnames") commandstr) (command pause))
   
7.   (setq e (entlast))
   
8.   (cond ((not (equal e0 e)) e))
   
9. )

;;[功能] 调用Autocad自身命令<br /> ;;(HH:command "PLINE")<br /> (defun HH:command (commandstr / E E0)<br />   (setq e0 (entlast))<br />   (apply 'command (list (strcat "_." commandstr)))<br />   (while (equal (getvar "cmdnames") commandstr) (command pause))<br />   (setq e (entlast))<br />   (cond ((not (equal e0 e)) e))<br /> )

丰丰色色

自贡黄明儒 发表于 2014-12-10 11:50

你好，有c++代码吗，这个。。。。

丰丰色色

我自己解决了，，使用jig并在jig中应用 dimData 方法，，