yfywk 发表于 2017-9-14 15:39:12

怎样循环划线，直到右键结束

我想使用pl线划线，在每一个pl线端点处插入一个图块，但使用用command怎样循环？
(setq pt1 (getpoint "\n指定第一点:"))
(setq pt2 (getpoint "\n指定下一点:"))
(command ".Pline" pt1 pt2)
这样会一直画下去，但是没法运行command之后的插入命令了，怎样解决？

fan_zh 发表于 2017-9-14 17:28:19

(while (setq ...........

yfywk 发表于 2017-9-15 11:20:04

本帖最后由 yfywk 于 2017-9-15 11:42 编辑

还是不太明白，实际上我的意识是画pl线，让他自己一直画下去，结束由画图的自愿右键结束，但是用command命令后，右键结束会出错，怎样实现？

xyp1964 发表于 2017-9-15 22:52:06

(defun c:tt ()
(if (setq p1 (getpoint "\n指定第一点<退出>:"))
    (progn
      (command "insert" "di" "non" p1 1 1 0)          ;di为图块名称
      (command "pline" "non" p1)
      (while (setq p2 (getpoint p1 "\n指定下一点<退出>:"))
        (command p2 "")
        (setq p1 p2)
        (command "insert" "di" "non" p2 1 1 0)
        (command "pline" "non" p1)
      )
      (command "")
    )
)
(princ)
)
页: [1]
查看完整版本: 怎样循环划线，直到右键结束