假三维对像标注(2016.7.3更新).lsp

clh521

其实也就是：标准或不标准的轴测图的标注
原来的附件误删除了，重新上传最新的免币下载，原来用币购买过附件的在此感谢
有时我们在画三维图的时候，转化成三视图并标好尺寸后，在旁边还放一个立体图以加强立体观感，我们大都是用对齐标注命令标好再修改其尺寸数值，容易改错且外观不好看。现在有这个程序就方便了，如图演示：
本程序没有仔细测试过，程序在使用中如果发现有错误，请在下面留言，我有能力改的就改正。





;;;假三维对像标注第1版(2016.04.05)
;;;假三维对像标注第2版(2016.04.12)
;;        1.根据所选的标注的精度提取标注的值，而不是根据固定的精度位数提取标注值，解决了提取的标注值与所选的标注的值的精度不一样的错误。
;;;假三维对像标注第3版(2016.04.20)
;;        1.文字自动倾斜，保持与标注的一至性，立体感更强。
;;;假三维对像标注第4版(2016.04.28)
;;        1.解决了由于标注样式的文字对齐设置不同而引起的标注外观不正常
;;;假三维对像标注第5版(2016.07.03)
;;        1.解决了文字角度有时会出错的问题
;;        2.调整选项，直接回车是取上一次值，而不是手动输入值，因为上一次值经常用。
;;        3.修正了“上一次值” 的值有时不正确的问题。
;;        4.自动捕捉对齐旁边的标注（显示靶框）
;;        5.原来的对齐标注全部改为转角标注
(defun hzjang (ang / a)         ; 弧度转为角度
    (setq a (/ (* ang 180) pi))
(if (>= a 180)(setq a (- a 180)) a)
)

(defun p4ang (p1 p2 p3 p4 / a) ;;计算文字的角度
(setq a (- (hzjang(angle p1 p2))(hzjang(angle p3 p4))) )
(if (<= a (- 0 90))(setq a (+ a 180)) a)
(if (> a 90)(setq a (- a 180)));;之前因为少了这一行，导至文字旋转角度经常出错
(rtos a 2 2)
)

dd131028

能否将阅读权限下调，我们权限不够的，下载不了啊，拜托！

wuwubaibai

好棒的程式
感谢大大的分享
之后3D标注省事不少

嘉伟钢结构

楼主：您好，插件的快捷命令是什么？

cgmacby

好东西 支持一个~~~~~~~~~

shh1980

好东西，先收藏了！

USER2128

好程序一定要支持，楼主辛苦

20150311

好东西 谢谢

aihuyujian

想法不错 支持一下

429014673

文字没转过来                     

52幕墙设计

不错 选择对象虚线，完成命令后没有恢复

clh521

52幕墙设计 发表于 2016-4-16 23:26
不错 选择对象虚线，完成命令后没有恢复

虚线是要烣复，等我修改后再更新附件吧

clh521

429014673 发表于 2016-4-15 19:20
文字没转过来

文字要转过来的话，程序又要变长好多了，文字没转过来对外观影响不大，而且有时因为角度太斜了文字都看不清楚了。