[歡迎使用]軸測圖標注程序,
本帖最后由 作者 于 2004-1-19 8:23:52 编辑剛學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)) 楼主能否再来一45度的斜轴侧图的program 加到R14中不会用，请想法解决 不用编程吧,直接设置尺寸界线方向和文字方向就可以了哦
页:
[1]