大神求助，怎么调出输入两点之间的“连线”

azbk00

是这样的，我自己写了一个连续测量的lsp
(defun c:dd ()
(setq i (getpoint "\n指定一点:"))
(while (setq x (getpoint "\n指定下一点:"))
  (command "dist" i x)
  (setq i x)
)
(princ)
)

实际的效果有一点是我不满意的，就是在指定“第一点”和“第二点”之间，没有一条像单独的dist命令一样在两点之间出现一条“临时线”，表示两点间的轨迹线。不知道有没有什么命令或者要怎么改lisp才能出现那样的效果，新人出道，望各位大神不吝赐教！

waterchen

楼主，是想要这样的吧：

1. (defun c:dd (/ i x)
   
2.   (setq i (getpoint "\n指定一点:"))
   
3.   (initget (+ 32 128))
   
4.   (while (setq x (getpoint i "\n指定下一点:"))
   
5.     (command "dist" i x)
   
6.     (setq i x)
   
7.     (initget (+ 32 128))
   
8.   )
   
9.   (princ)
   
10. )
    

(defun c:dd (/ i x)<br />   (setq i (getpoint "\n指定一点:"))<br />   (initget (+ 32 128))<br />   (while (setq x (getpoint i "\n指定下一点:"))<br />     (command "dist" i x)<br />     (setq i x)<br />     (initget (+ 32 128))<br />   )<br />   (princ)<br /> )<br />

lht

(defun c:dd ()
(setq i (getpoint "\n指定一点:"))
(while (setq x (getpoint "\n指定下一点:"))
  (grdraw i x )
  (command "dist" i x)
  (setq i x)
)
(princ)
)

azbk00

waterchen 发表于 2015-9-25 22:44
楼主，是想要这样的吧：

非常感谢！这个显示的是虚线，已经满足我的要求了。大神，好奇地再问一下，如果要以原生dist命令中以那种白色实线来显示，可以做到吗？你的命令已经非常好了，我只是想多学习一下，再次表示对大神的敬佩和感谢！

azbk00

lht 发表于 2015-9-25 22:50
(defun c:dd ()
(setq i (getpoint "\n指定一点:"))
(while (setq x (getpoint "\n指定下一点:"))

好像不行诶，非但没有显示“连线”，而且测量命令一个循环就自动结束了，我用的是cad2015

waterchen

azbk00 发表于 2015-9-25 22:55
非常感谢！这个显示的是虚线，已经满足我的要求了。大神，好奇地再问一下，如果要以原生dist命令中以那种 ...

1. (defun c:dd (/ i x)
   
2.   (setq i (getpoint "\n指定一点:"))
   
3.   (initget 128)
   
4.   (while (setq x (getpoint i "\n指定下一点:"))
   
5.     (command "dist" i x)
   
6.     (setq i x)
   
7.   )
   
8.   (princ)
   
9. )
   

(defun c:dd (/ i x)<br />   (setq i (getpoint "\n指定一点:"))<br />   (initget 128)<br />   (while (setq x (getpoint i "\n指定下一点:"))<br />     (command "dist" i x)<br />     (setq i x)<br />   )<br />   (princ)<br /> )<br />

azbk00

waterchen 发表于 2015-9-25 23:46

大神真厉害！领略到iniget的用法了