(command "pline" pt1 pt2 pt3 )

675241162

如题命令，画不出想要的图形，实在想不通，也拷贝过书籍的源码，cad放大时有效，视图缩小的状态下无效，画不出自己想要的图形。

x_s_s_1

您试试这样，关闭捕捉

2. (defun c:test1 (/ pt os lst)
   
3.   (setq os (getvar "osmode"))
   
4.   (setvar "osmode" 0)
   
5.   (setvar "cmdecho" 0)
   
6.   (while (setq pt (getpoint "\n拾取点(空格退出)："))
   
7.     (setq lst (cons pt lst))
   
8.   )
   
9.   (apply 'command (append (cons "_.pline" LST) '("")))
   
10.   (setvar "osmode" os)
    
11.   (princ)
    
12. )

(defun c:test1 (/ pt os lst)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (while (setq pt (getpoint "\n拾取点(空格退出)："))<br />     (setq lst (cons pt lst))<br />   )<br />   (apply 'command (append (cons "_.pline" LST) '("")))<br />   (setvar "osmode" os)<br />   (princ)<br /> )

nonsmall

(command "pline" "non" pt1 "non" pt2 "non" pt3 "")

675241162

大神？绝对是大神。。。由衷的感谢。。。谢谢。。。

675241162

问题迎刃而解。。。

675241162

第一次发贴，就得到满意的解决。。。真的。。。无以言表。。。谢谢了