四点标注

zhaobingbznj

想要一个插件 实现功能：手动选取红色4个点后后  自动标注尺寸 如下图所示


之前整过一个，显示效果不理想，路局太乱，根本不实用
~~~

;四点长度标注
;依次点选四点，标注两两之间长度


(defun c:BZ()


  (setq p1 (getpoint "请选择第一个点："))
  (setq p2 (getpoint "请选择第二个点："))
  (setq p3 (getpoint "请选择第三个点："))
  (setq p4 (getpoint "请选择第四个点："))


  (setq q (getvar "OSMODE"))                        ;取得对象捕捉的系统参数
  (setvar "OSMODE" 0)                                ;关闭对象捕捉
  
  (setq d (* 0.1 (distance p1 p2)))
  
  (setq x1 (car p1))
  (setq x2 (car p2))
  (setq x3 (car p3))
  (setq x4 (car p4))


  (setq y1 (cadr p1))
  (setq y2 (cadr p2))
  (setq y3 (cadr p3))
  (setq y4 (cadr p4))


  (setq a1 (angle p1 p2))
  (setq a2 (angle p2 p3))
  (setq a3 (angle p3 p4))
  (setq a4 (angle p4 p1))
  (setq a5 (angle p1 p3))
  (setq a6 (angle p2 p4))
  
  (setq b1 (list (- x1 (* d (sin a1))) (+ y1 (* d (cos a1))) 0))
  (setq b2 (list (- x2 (* d (sin a2))) (+ y2 (* d (cos a2))) 0))
  (setq b3 (list (- x3 (* d (sin a3))) (+ y3 (* d (cos a3))) 0))
  (setq b4 (list (- x4 (* d (sin a4))) (+ y4 (* d (cos a4))) 0))
  (setq b5 (list (- x2 (* 5 d (sin a5))) (+ 5 y2 (* d (cos a5))) 0))
  (setq b6 (list (- x3 (* 5 d (sin a6))) (+ 5 y3 (* d (cos a6))) 0))
  
  (setq s (/ d 5))
  (setvar "DIMSCALE" s)
  
  (command "dimaligned" p1 p2 b1)
  (command "dimaligned" p2 p3 b2)
  (command "dimaligned" p3 p4 b3)
  (command "dimaligned" p1 p4 b4)
  (command "dimaligned" p1 p3 b5)
  (command "dimaligned" p2 p4 b6)


  (setvar "OSMODE" q)                                ;恢复对象捕捉
  )

~~~


是否大佬可以帮忙实现此功能

zhaobingbznj

想要的功能和这个很相似，http://bbs.xdcad.net/thread-715377-1-1.html


不过我想要的是自己手动指定4个点

yangpingjun

支持一波。