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 编辑

;可以了, 点右键或回车推出
页: [1]
查看完整版本: 在运行中出现一点问题，请大家看看指点一下，谢谢了。