求大大帮忙写一段坐标标注的LISP

jevnchen0720 · 发表于 2014-4-26 20:09:52

因为工作中标图大部分时间使用的是坐标标注，所以请大大能帮忙写一段LISP

只要能满足自定义捕捉原点，并进行连续坐标标注即可。

求大大们能帮小弟一下！万分感谢！！！

也就是将CAD原始快捷命令的UCS O

然后坐标标注，连续标注，3个快捷命令整合到一个快捷键上，

比如输入 FF 我就能完成以上的自定义原点，并坐标连续标注动作！

附图效果

jevnchen0720 · 发表于 2014-4-26 20:13:19

希望有好心大大可以帮我一下，顺便指导我学习一下LISP

JP6325 · 发表于 2014-4-27 03:12:12

;;標柱尺寸以按 ESC 中斷程序

(defun c:ff()

(setvar "cmdecho" 0)
(prompt "請選擇 UCS 原點:")
(prin1)
(command "ucs" "o" pause)

(SETQ i 1)

(while (= i 1)
(prompt "請選擇尺寸點:")
(command "dimordinate" pause pause)

)
)

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

[提问] 求大大帮忙写一段坐标标注的LISP

本帖子中包含更多资源