[歡迎使用]軸測圖標注程序,

BDYCAD

剛學LISP編的老程序, 歡迎各位使用的同時也希望大家更一步的完善. 我的程序並不完美. 還缺少些東西如:

1.程序應建立專用的軸測標注字體, 我未做.

2.軸測標注的箭頭系統未做.

3.尺寸擺放方向還缺少兩种呢.

同時我希望以上所提三點希望各位CAD高手 LISP高手, VBA高手幫忙完善. 謝謝.





;程序功能: 軸測圖標注．
;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))

2002-ytf

楼主能否再来一45度的斜轴侧图的program

fanqinwei

加到R14中不会用，请想法解决

nok99

不用编程吧,直接设置尺寸界线方向和文字方向就可以了哦