Question

需要一个在多段线上加点的lisp 谢谢

就是cass里的Y 复合线上加点 命令 需要这个命令的lisp

Answer 1

写了一个，命令APPload加载，命令【TES3】.

追问

这个是gif呀 请问有lisp吗

Answer 2

;;;用AP命令加载后，输入命令GM，先选中心线，再选任意点即可
(defun C:GM (/ cur pt olderr olderror *error*)
;;自定义错误处理函数
(defun myerror (s)
(if (and (/= s "函数被取消")
(/= s "函数已取消")
(/= s "Function cancelled")
(/= s "quit / exit abort")
)
(princ (strcat "错误：" s))
)
(setq *error* olderror)
(command "UNDO" "END")
(setvar "CMDECHO" 1)
(princ)
)

;;系统变量设置
(setvar "cmdecho" 0)
(setq olderror *error*
*error* myerror
)
(while (not cur)
(princ "\n请选择曲线:")
(setq cur (car (entsel)))
(if cur (setq cur (vlax-ename->vla-object cur)))
)
(setq pt (getpoint))
(if(not pt) (exit))
(setq pt (vlax-curve-getClosestPointTo cur pt))
(princ "\n桩号 = ")
(princ (vlax-curve-getDistAtPoint cur pt))

;;还原系统变量
(setq *error* olderror)
(setvar "CMDECHO" 1)
(princ)
)