哪位朋友能解决程序画线的回退问题？

fengyong88 · 发表于 2009-2-17 09:43:00

本帖最后由作者于 2009-2-17 10:24:56 编辑

我在程序画线的程序内加了一个控制最小线段长度的语句（即小于1m长度的线段无效），不过现在却实现不了像调用PLINE命令那样能使用“回撤”点的功能，不知道哪位大侠能帮忙解决或给点提示，另外想在画线的时候，实时动态在线附近显示鼠标点和上一个节点的距离，该如何实现？

ZZXXQQ · 发表于 2009-2-17 21:27:00

;解决回退问题

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

g8g8g8g8 · 发表于 2012-7-24 22:53:36

我也想看看如何画线后回退一个点

梦醒才知原是梦 · 发表于 2012-7-25 11:18:34

这个好难。。。若解决了，麻烦也跟我说下，我的一个大程序也想用这样的。。。比较方便。。。多谢了

smartstar · 发表于 2012-7-25 12:49:26

(defun c:pll (/ pt1 pt)
(setvar "cmdecho" 0)
(if (setq pt1 (getpoint "\n输入点：")) (progn
  (command "pline" pt1)
  (setq pt (getvar "lastpoint"))
  (while (progn (initget "u") (setq pt1 (getpoint pt "\n输入点：")))
(if (= pt1 "u") (command "_U")
(if (> (distance pt pt1) 1000) (progn
   (command pt1)
   (setq pt pt1 )
))
)
  )
  (command "")
))
(setvar "CMDECHO" 1)
(princ)
)

账号		自动登录	找回密码
密码			注册

哪位朋友能解决程序画线的回退问题？

本帖子中包含更多资源