急求关于尺寸的lisp(autolisp)

lzy9788

请高手帮忙编个合并尺寸、尺寸一分为二的*.lsp，


另外有没有快速标注尺寸的lisp


(arx 或 dvb文也行)

ljcgq

;=====================================
; 尺寸线分割标注(适用于DIMLINEAR)
; ljc 2004.3
;=====================================
(defun c:fg( /)
(print "请选择要分割的尺寸线:")
(setq ss (ssget '(( 0 . "DIMENSION" )) ))
(command "point" (cdr (assoc 13 (entget (ssname ss 0 )))) )
(setq ss1 (ssadd (entlast) ss1 ))
(command "point" (cdr (assoc 14 (entget (ssname ss 0 )))) )
(setq ss1 (ssadd (entlast) ss1))
(command "point" (getpoint "请选择分割点:" ) )
(setq ss1 (ssadd (entlast) ss1) )
(setq os (getvar "osmode") )
(command "qdim" ss1 "" (cdr (assoc 10 (entget (ssname ss 0 )))) )
(command "erase" ss1 "" ) (command "erase" ss "" )
(setvar "osmode" os)
) 希望高手能扩展一下,能分割DIMALIGNED