;;;批量写入横断线高度(佳木斯市__插件定制) (defun c:tt (/ mspace objl ss) (setq ss (ssget '((0 . "INSERT") (8 . "0")))) (if ss (progn (setq mspace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))&...