求大大帮忙写一段坐标标注的LISP
因为工作中标图大部分时间使用的是坐标标注，所以请大大能帮忙写一段LISP只要能满足自定义捕捉原点，并进行连续坐标标注即可。
求大大们能帮小弟一下！万分感谢！！！
也就是将CAD原始快捷命令的UCS O
然后坐标标注，连续标注，3个快捷命令整合到一个快捷键上，
比如输入FF 我就能完成以上的自定义原点，并坐标连续标注动作！
附图效果
希望有好心大大可以帮我一下，顺便指导我学习一下LISP ;;標柱尺寸以按 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)
)
)
页:
[1]