(图)特殊尺寸标注，LISP能否实现，请斑竹和高手看看

wang_ffr · 发表于 2004-1-18 22:20:00

ACAD中的尺寸标注线看起来似乎必须与尺寸界线垂直，能否成120度呢？此尺寸标注在三维空视图时要用到，可是怎么能用LISP实现呢？图中尺寸标注线要与被标注的线平行，尺寸界线与被标注的线成120度夹角，请斑竹和LISP高手们看看能否用LISP实现此类尺寸标注!（具体见图）

o0srfknklif.gif

BDYCAD · 发表于 2004-1-19 08:47:00

看過來. 這里有個合你用呀. 呵呵.
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=14589;程序功能: 軸測圖標注．
;The program make by  ＢＤＹＣＡＤ
;本程序寫於2003-03-08
;程序更新日期：2004-01-19
(defun c:gT (/ os d date one tow three rotate-angle)
  (command "dimaligned" PAUSE PAUSE PAUSE)
  (setq os (getvar "osmode" ))(setvar "cmdecho" 0)(setvar "osmode" 0)
  (setq d (entlast))
  (setq date (entget d))
  (setq one (cdr(assoc 13 date)))
  (setq tow (cdr(assoc 14 date)))
  (setq three (cdr(assoc 10 date)))
  (setq rotate-anngle(angtos(angle one tow)))
  (if (or (= rotate-anngle "210") (= rotate-anngle "30"))
(progn
   (if(>(cadr three)(cadr tow))
      (command "dimedit" "o" d "" "90" "")
      (command "dimedit" "o" d "" "-30" ""))))
  (if (or (= rotate-anngle "330") (= rotate-anngle "150"))
(progn
   (if(>(cadr three)(cadr tow))
      (command "dimedit" "o" d "" "90" "")
      (command "dimedit" "o" d "" "30" ""))))
  (if (or (= rotate-anngle "270") (= rotate-anngle "90"))
(progn
   (if(>(car three)(car one))
      (command "dimedit" "o" d "" "-30" "")
      (command "dimedit" "o" d "" "30" ""))))
  (setvar "cmdecho" 1)(setvar "osmode" os)
  (princ))

wang_ffr · 发表于 2004-1-19 17:01:00

太谢谢BDYCAD了，真是高手！向您学习！向您致敬！

(图)特殊尺寸标注，LISP能否实现，请斑竹和高手看看

发表回复

精选推荐