急求关于尺寸的lisp(autolisp)

lzy9788 · 发表于 2004-2-20 17:00:00

请高手帮忙编个合并尺寸、尺寸一分为二的*.lsp，
另外有没有快速标注尺寸的lisp
(arx 或 dvb文也行)

ljcgq · 发表于 2004-3-6 18:45:00

;=====================================
; 尺寸线分割标注(适用于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

急求关于尺寸的lisp(autolisp)

发表回复

精选推荐

浏览过的版块