显示虚线矩形框后，标注尺寸

alexmai

提问：提示一个虚线矩形"框"，立即标注两个尺寸，尺寸位置根据点击顺序生成

1. 自动使用 系统当前使用的尺寸标注
2. 生成的标注，必须是垂直/平衡标注"DIMLINEAR"
3. 尺寸距离矩形距离，默认是 8，可以调整数值，带记忆功能
4. 矩形虚框只是显示作用，目的只要标注 “尺寸”

start4444

(defun c:tt5 (/ d p1 p2 p3 p4 px py)         
(if (not DD) (setq DD 8))
(setq DD (if (setq D (getdist (strcat "\n输入标注间距<" (rtos DD 2 2) ">:"))) D DD) p1 (getpoint "\n起点:") p2 (getcorner p1 "\n终点:") p3 (list (car p2) (cadr p1)) p4 (list (car p1) (cadr p2)))       
(cond
        ((and (> (car p2) (car p1)) (> (cadr p1) (cadr p2)) (setq py (polar p1 (* 0.5 pi) dd) px (polar p1 (* 1 pi) dd))))
        ((and (> (car p2) (car p1)) (< (cadr p1) (cadr p2)) (setq py (polar p1 (* 1.5 pi) dd) px (polar p1 (* 1 pi) dd))))
  ((and (< (car p2) (car p1)) (> (cadr p1) (cadr p2)) (setq py (polar p1 (* 0.5 pi) dd) px (polar p1 (* 0 pi) dd))))
  ((and (< (car p2) (car p1)) (< (cadr p1) (cadr p2)) (setq py (polar p1 (* 1.5 pi) dd) px (polar p1 (* 0 pi) dd))))                 
)       
(command "DIMLINEAR" "non" p1 "non" p3 "non" py "DIMLINEAR" "non" p1 "non" p4 "non" px)         
(princ)       
)

xj6019

start4444 发表于 2021-4-19 10:55
(defun c:tt5 (/ d p1 p2 p3 p4 px py)         
(if (not DD) (setq DD 8))
(setq DD (if (setq D (getdist (s ...

老师就是老师，我写出代码来了，但是判断一直没搞定，捣鼓了老大会没成，放弃了。看你判断了四种情况呀，我一直想的判断两种，就只判断画出来的线和x轴的夹角，不过没搞定。哎！！

paulpipi

挺好用的，谢谢二楼

sunny_8848

挺好用的，多谢分享

alexmai

start4444 发表于 2021-4-19 10:55
(defun c:tt5 (/ d p1 p2 p3 p4 px py)         
(if (not DD) (setq DD 8))
(setq DD (if (setq D (getdist (s ...

很好用，能否小改一下，默认是8，输入命令后，直接画矩形就得出尺寸，当需要修改尺寸与物体距离时，按"s" 设置，且设置后的数字带记忆功能

start4444

alexmai 发表于 2021-4-19 22:02
很好用，能否小改一下，默认是8，输入命令后，直接画矩形就得出尺寸，当需要修改尺寸与物体距离时，按"s" ...

用关键字就可以了