在运行中出现一点问题，请大家看看指点一下，谢谢了。

duxi15 · 发表于 2010-12-19 22:24:51

本帖最后由 duxi15 于 2010-12-19 23:30 编辑

在大家的帮助下，我编写了一个关于标注的小程序，就是标注时点下一点，就自动对齐上一下标注。代码如下。我觉得存在好多缺陷。1.进行标注时，不能正常退出，只能按ESC退出，这让我想了好久也不知道怎么办。2，对于要连续标注时，找不到一个很好方法来循环。
刚刚学LISP不久，谢谢大家对我的帮助，谢谢了。
(defun c:ddd (/)
  (command "dimlinear")
  (while (> (getvar "cmdactive") 0) (command pause))
  (setq t1 (entget (entlast)))
  (setq pt1 (cdr (assoc 10 t1)))
  (setq pt2 (cdr (assoc 14 t1)))
  (setq n 100)
  (while (> n 1)
(command "dimlinear" pt2 pause pt1)
(setq t1 (entget (entlast)))
(setq pt1 (cdr (assoc 10 t1)))
(setq pt2 (cdr (assoc 14 t1)))
  )
)

duxi15 · 发表于 2010-12-20 17:48:38

没有人吗？

xiaxiang · 发表于 2010-12-20 17:56:17

不太明白你的意思

Andyhon · 发表于 2010-12-20 19:13:02

(command "dimlinear")
(while (> (getvar "cmdactive") 0) (command pause))
(command "dimcontinue") ; 可直接选下一点 (连续)

crazylsp · 发表于 2010-12-20 23:55:53

本帖最后由 crazylsp 于 2011-4-21 09:43 编辑

;可以了

, 点右键或回车推出

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

[讨论] 在运行中出现一点问题，请大家看看指点一下，谢谢了。