增强性标注

liuhaixin88 · 发表于 2014-9-20 21:26:10

看见一个演示非常强，太智能了，不用选择是线性标注还是对齐标注，而且还可以动态跟标注对象垂直，水平用lisp可以写出来吗？在此先谢谢了！

st788796 · 发表于 2014-9-20 21:26:11

liuhaixin88 发表于 2014-9-23 16:13
长老，怎么？放弃了吗？

先发个初级版，待完善后再发布插件

(defun c:tt (/ p1 p2 e1 e2 dm p11 p12)
(defun _getdimline (p msg / ss e)
(if (setq ss (xdrx_pickset_getatpoint p '((0 . "line"))))
(cond
((= (sslength ss) 1)
(xdrx_getpropertyvalue (ssname ss 0) "angle")
)
((> (sslength ss) 1)
(if (setq e (xdrx_entsel msg '((0 . "line"))))
(xdrx_getpropertyvalue (car e) "angle")
)
)
(t nil)
)
)
)
(defun callback (dynpt / pan1 pan2 tf)
(setq pan1 (rem (angle dynpt p1) pi)
pan2 (rem (angle dynpt p2) pi)
tf (> (distance dynpt p1) (distance dynpt p2))
)
(if (and an1 tf)
(cond
((equal pan1 an1 0.01)
(xdrx_setpropertyvalue dm "rotation" (+ (/ pi 2) an1))
)
((equal pan2 an1 0.01)
(xdrx_setpropertyvalue dm "rotation" (+ (/ pi 2) an1))
)
((or (xdrx_vector_IsPerpendicular
(mapcar '- dynpt p1)
(mapcar '- p1 p2)
)
(xdrx_vector_IsPerpendicular
(mapcar '- dynpt p2)
(mapcar '- p1 p2)
)
)
(xdrx_setpropertyvalue dm "rotation" an1)
)
(t)
)
)
(if (and an2 (not tf))
(cond
((equal pan1 an2 0.01)
(xdrx_setpropertyvalue dm "rotation" (+ an2 (/ pi 2)))
)
((equal pan2 an2 0.01)
(xdrx_setpropertyvalue dm "rotation" (+ an2 (/ pi 2)))
)
((or (xdrx_vector_IsPerpendicular
(mapcar '- dynpt p1)
(mapcar '- p1 p2)
)
(xdrx_vector_IsPerpendicular
(mapcar '- dynpt p2)
(mapcar '- p1 p2)
)
)
(xdrx_setpropertyvalue dm "rotation" an2)
)
(t)
)
)
(xdrx_setpropertyvalue dm "dimlinepoint" dynpt)
)
(if (and (setq p1 (getpoint "\n标注点: "))
(setq p2 (getpoint p1 "\n标注点: "))
)
(progn
(setq an1 (_getdimline p1 "\n对齐线: ")
an2 (_getdimline p2 "\n对齐线: ")
dm (xdrx_dimension_makerotate
p1
p2
(polar p1 0. (* (distance p1 p2) 0.1))
0.0
)
)
(xdrx_pointmonitor "callback" dm)
(getpoint "\n位置: ")
(xdrx_pointmonitor)
)
)
(princ)
)

(defun c:tt (/ p1 p2 e1 e2 dm p11 p12) 
  (defun _getdimline (p msg / ss e) 
    (if        (setq ss (xdrx_pickset_getatpoint p '((0 . "line")))) 
      (cond 
        ((= (sslength ss) 1) 
         (xdrx_getpropertyvalue (ssname ss 0) "angle") 
        ) 
        ((> (sslength ss) 1) 
         (if (setq e (xdrx_entsel msg '((0 . "line")))) 
           (xdrx_getpropertyvalue (car e) "angle") 
         ) 
        ) 
        (t nil) 
      ) 
    ) 
  ) 
 
  (defun callback (dynpt / pan1 pan2 tf) 
    (setq pan1 (rem (angle dynpt p1) pi) 
          pan2 (rem (angle dynpt p2) pi) 
          tf   (> (distance dynpt p1) (distance dynpt p2)) 
    ) 
    (if        (and an1 tf) 
      (cond 
        ((equal pan1 an1 0.01) 
         (xdrx_setpropertyvalue dm "rotation" (+ (/ pi 2) an1)) 
        ) 
        ((equal pan2 an1 0.01) 
         (xdrx_setpropertyvalue dm "rotation" (+ (/ pi 2) an1)) 
        ) 
        ((or (xdrx_vector_IsPerpendicular 
               (mapcar '- dynpt p1) 
               (mapcar '- p1 p2) 
             ) 
             (xdrx_vector_IsPerpendicular 
               (mapcar '- dynpt p2) 
               (mapcar '- p1 p2) 
             ) 
         ) 
         (xdrx_setpropertyvalue dm "rotation" an1) 
        ) 
        (t) 
      ) 
    ) 
    (if        (and an2 (not tf)) 
      (cond 
        ((equal pan1 an2 0.01) 
         (xdrx_setpropertyvalue dm "rotation" (+ an2 (/ pi 2))) 
        ) 
        ((equal pan2 an2 0.01) 
         (xdrx_setpropertyvalue dm "rotation" (+ an2 (/ pi 2))) 
        ) 
        ((or (xdrx_vector_IsPerpendicular 
               (mapcar '- dynpt p1) 
               (mapcar '- p1 p2) 
             ) 
             (xdrx_vector_IsPerpendicular 
               (mapcar '- dynpt p2) 
               (mapcar '- p1 p2) 
             ) 
         ) 
         (xdrx_setpropertyvalue dm "rotation" an2) 
        ) 
        (t) 
      ) 
    ) 
    (xdrx_setpropertyvalue dm "dimlinepoint" dynpt) 
  ) 
  (if (and (setq p1 (getpoint "\n标注点: ")) 
           (setq p2 (getpoint p1 "\n标注点: ")) 
      ) 
    (progn 
      (setq an1        (_getdimline p1 "\n对齐线: ") 
            an2        (_getdimline p2 "\n对齐线: ") 
            dm        (xdrx_dimension_makerotate 
                  p1 
                  p2 
                  (polar p1 0. (* (distance p1 p2) 0.1)) 
                  0.0 
                ) 
      ) 
      (xdrx_pointmonitor "callback" dm) 
      (getpoint "\n位置: ") 
      (xdrx_pointmonitor) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2014-9-20 23:17:26

你这个工具是什么软件带的，叫什么名字？

st788796 · 发表于 2014-9-21 11:16:57

写没什么问题，大框架

(defun c:tt (/ p1 p2 ss1 ss2 ln1 ln2 dim an1 an2)
;;用dynpt 点向 ln1 ln2 trans 判断关系修改 dim 的角度和位置点
(defun callback (dynpt /)
)
(if (and (setq p1 (getpoint "\nFirst Point: "))
(setq p2 (getpoint "\nSecond Point: "))
)
(progn
(xd::begin)
(if (setq ss1 (xdrx_pickset_getatpoint p1 '((0 . "line"))))
(setq ln1 (ssname ss1 0)
an1 (rem (xdrx_getpropertyvalue ln1 "angle") pi)
)
)
(if (setq ss2 (xdrx_pickset_getatpoint p2 '((0 . "line"))))
(setq ln2 (ssname ss2 0)
an2 (rem (xdrx_getpropertyvalue ln2 "angle") pi)
)
)
(setq dim (xdrx_dimension_makerotate
p1
p2
(polar p1 0. 100)
(angle p1 p2)
)
)
(xdrx_pointmonitor "callback" dim)
(getpoint "\n标注点: ")
(xd::end)
)
)
(princ)
)

(defun c:tt (/ p1 p2 ss1 ss2 ln1 ln2 dim an1 an2) 
  ;;用dynpt 点向 ln1 ln2 trans 判断关系修改 dim 的角度和位置点 
  (defun callback (dynpt /) 
  ) 
  (if (and (setq p1 (getpoint "\nFirst Point: ")) 
           (setq p2 (getpoint "\nSecond Point: ")) 
      ) 
    (progn 
      (xd::begin) 
      (if (setq ss1 (xdrx_pickset_getatpoint p1 '((0 . "line")))) 
        (setq ln1 (ssname ss1 0) 
              an1 (rem (xdrx_getpropertyvalue ln1 "angle") pi) 
        ) 
      ) 
      (if (setq ss2 (xdrx_pickset_getatpoint p2 '((0 . "line")))) 
        (setq ln2 (ssname ss2 0) 
              an2 (rem (xdrx_getpropertyvalue ln2 "angle") pi) 
        ) 
      ) 
      (setq dim        (xdrx_dimension_makerotate 
                  p1 
                  p2 
                  (polar p1 0. 100) 
                  (angle p1 p2) 
                ) 
      ) 
      (xdrx_pointmonitor  "callback" dim) 
      (getpoint "\n标注点: ") 
      (xd::end) 
    ) 
  ) 
  (princ) 
)

liuhaixin88 · 发表于 2014-9-21 13:29:25

newer 发表于 2014-9-20 23:17
你这个工具是什么软件带的，叫什么名字？

回版主，这个我揣测是用mechanical 做到的

liuhaixin88 · 发表于 2014-9-21 13:30:13

st788796 发表于 2014-9-21 11:16
写没什么问题，大框架

您好，请问大框架是什么？
我加载，显示命令: ; 错误: 语法错误

st788796 · 发表于 2014-9-21 15:24:32

liuhaixin88 发表于 2014-9-21 13:30
您好，请问大框架是什么？
我加载，显示命令: ; 错误: 语法错误

还没有写完，如果点选位置有好几个曲线怎么处理，也可能有弧线相交于该点

liuhaixin88 · 发表于 2014-9-21 15:35:32

st788796 发表于 2014-9-21 15:24
还没有写完，如果点选位置有好几个曲线怎么处理，也可能有弧线相交于该点

弧线当然不考虑了，这个应该只考虑直线段吧

yangpeng0718 · 发表于 2014-9-21 17:26:26

好像不错:D

XDSoft · 发表于 2014-9-21 17:36:11

liuhaixin88 发表于 2014-9-21 13:29
回版主，这个我揣测是用mechanical 做到的

2015下面线性标注能和你贴的这个90%一样，但有几个位置也没实现。

XDSoft · 发表于 2014-9-21 17:41:35

liuhaixin88 发表于 2014-9-21 15:35
弧线当然不考虑了，这个应该只考虑直线段吧

下面两个2015没有，

QQ截图20140921173819.png

下面这个是标哪呢？

QQ截图20140921174012.png

lucas3 · 发表于 2014-9-21 17:51:36

很强大的标注，关注，希望晓东的大师搞定:lol

q3_2006 · 发表于 2014-9-21 18:52:30

大概这个样子....

st788796 · 发表于 2014-9-21 21:22:59

q3_2006 发表于 2014-9-21 18:52
大概这个样子....

差多了，先要分析出哪几个是特殊几何位置，Lisp 动态用 grread

q3_2006 · 发表于 2014-9-21 21:38:21

st788796 发表于 2014-9-21 21:22
差多了，先要分析出哪几个是特殊几何位置，Lisp 动态用 grread

那就相当于极轴追踪......大概.....

账号		自动登录	找回密码
密码			立即注册

[已解决] 增强性标注

最佳答案

点评

点评

点评

点评

点评

点评

点评