后面的点监视器部分如何写

st788796 · 发表于 2016-5-22 16:16:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

看到一个画线标注演示，想用 XDRXAPI 实现一个，写了一部分，后面的动态部分如何写呢？欢迎探讨补充

(defun c:tt (/ _print p1 d flag p2 pts callback vec p)
(defun myerr (msg)
(xdrx_pointmonitor)
(princ)
)
(defun _getoffsetpoints (d p1 p2 /)
(xdrx_points_offset
(- ((if (minusp d)
+
-
)
d
(xd::symbol:get 'dimension_space)
)
)
p1
p2
)
)
(defun callback (pt / p11 p21)
(redraw)
(xdrx_grdraw 1 p1 p2)
(setq d (car (trans (mapcar '- pt p1) 0 vec)))
(mapcar 'set
'(p11 p21)
(_getoffsetpoints d p1 p2)
)
(xdrx_grdraw 6 p11 p21)
)
(defun _print ()
(princ (strcat "\n当前设置: "
(cond
((zerop (xd::symbol:get 'dimension_mode))
"水平; "
)
((= (xd::symbol:get 'dimension_mode) 1)
"垂直; "
)
(t "任意角度; ")
)
"距离 :"
(rtos (xd::symbol:get 'dimension_space) 2 3)
)
)
)
(if (not (xd::symbol:get 'DIMENSION_LAYER))
(xd::symbol:put 'DIMENSION_LAYER (getvar "clayer"))
)
(if (not (xd::symbol:get 'DIMENSION_SpaCE))
(xd::symbol:put
'DIMENSION_SpaCE
(/ (getvar "viewsize") 5.0)
)
)
(if (not (xd::symbol:get 'DIMENSION_Mode))
(xd::symbol:put 'DIMENSION_Mode 0)
)
(setq flag t)
(while (and flag
(progn
(_print)
(initget 128 "C D V H A")
(setq p1 (getpoint
"\n第一点[设置图层(C)/设置距离(D)/水平(H)/垂直(V)/任意角度(A)]: "
)
)
)
)
(cond
((= p1 "C")
(if (setq e (car (entsel "\n拾取标准实体图层: ")))
(xd::symbol:put
'DIMENSION_LAYER
(xdrx_getpropertyvalue e "layer")
)
)
)
((= p1 "D")
(if (setq d (getdist "\n距离: "))
(xd::symbol:put 'DIMENSION_SAPCE d)
)
)
((= p1 "H") (xd::symbol:put 'dimension_mode 1))
((= p1 "V") (xd::symbol:put 'dimension_mode 0))
((= p1 "A") (xd::symbol:put 'dimension_mode 2))
((= (type p1) 'LIST) (setq flag nil))
(t)
)
)
(if (= (type p1) 'LIST)
(progn
(if (= (xd::symbol:get 'dimension_mode) 2)
(xdrx_sysvar_push '("orthomode" 0))
(xdrx_sysvar_push '("orthomode" 1))
)
(if (setq p2 (getpoint p1 "\n第二点: "))
(progn
(mapcar 'set
'(p1 p2)
(if (>= (angle p1 p2) (/ pi 2))
(list p2 p1)
(list p1 p2)
)
)
(if (setq ss (ssget "F"
(list p1
p2
)
(list (cons 8 (xd::symbol:get 'dimension_layer))
'(0 . "*line")
)
)
)
(progn
(xdrx_pointmonitor)
(setq pts (mapcar (function (lambda (x) (last (last x))))
(ssnamex ss)
)
vec (mapcar '- p2 p1)
p (car (_getoffsetpoints
(* 2 (xd::symbol:get 'dimension_space))
p1
p2
)
)
)
(if pts
(setq elst (mapcar '(lambda (x y)
(xdrx_dimension_makerotate x y p (angle p1 p2))
)
pts
(cdr pts)
)
)
)
(xdrx_pointmonitor "callback")
(getpoint)
(xdrx_pointmonitor)
)
)
)
)
)
)
(princ)
)

(defun c:tt (/ _print p1 d flag p2 pts callback vec p) 
  (defun myerr (msg) 
    (xdrx_pointmonitor) 
    (princ) 
  ) 
  (defun _getoffsetpoints (d p1 p2 /) 
    (xdrx_points_offset 
      (- ((if (minusp d) 
            + 
            - 
          ) 
           d 
           (xd::symbol:get 'dimension_space) 
         ) 
      ) 
      p1 
      p2 
    ) 
  ) 
  (defun callback (pt / p11 p21) 
    (redraw) 
    (xdrx_grdraw 1 p1 p2) 
    (setq d (car (trans (mapcar '- pt p1) 0 vec))) 
    (mapcar 'set 
            '(p11 p21) 
            (_getoffsetpoints d p1 p2) 
    ) 
    (xdrx_grdraw 6 p11 p21) 
  ) 
  (defun _print        () 
    (princ (strcat "\n当前设置: " 
                   (cond 
                     ((zerop (xd::symbol:get 'dimension_mode)) 
                      "水平; " 
                     ) 
                     ((= (xd::symbol:get 'dimension_mode) 1) 
                      "垂直; " 
                     ) 
                     (t "任意角度; ") 
                   ) 
                   "距离 :" 
                   (rtos (xd::symbol:get 'dimension_space) 2 3) 
           ) 
    ) 
  ) 
  (if (not (xd::symbol:get 'DIMENSION_LAYER)) 
    (xd::symbol:put 'DIMENSION_LAYER (getvar "clayer")) 
  ) 
  (if (not (xd::symbol:get 'DIMENSION_SpaCE)) 
    (xd::symbol:put 
      'DIMENSION_SpaCE 
      (/ (getvar "viewsize") 5.0) 
    ) 
  ) 
  (if (not (xd::symbol:get 'DIMENSION_Mode)) 
    (xd::symbol:put 'DIMENSION_Mode 0) 
  ) 
  (setq flag t) 
  (while (and flag 
              (progn 
                (_print) 
                (initget 128 "C D V H A") 
                (setq p1 (getpoint 
                           "\n第一点[设置图层(C)/设置距离(D)/水平(H)/垂直(V)/任意角度(A)]: " 
                         ) 
                ) 
              ) 
         ) 
    (cond 
      ((= p1 "C") 
       (if (setq e (car (entsel "\n拾取标准实体图层: "))) 
         (xd::symbol:put 
           'DIMENSION_LAYER 
           (xdrx_getpropertyvalue e "layer") 
         ) 
       ) 
      ) 
      ((= p1 "D") 
       (if (setq d (getdist "\n距离: ")) 
         (xd::symbol:put 'DIMENSION_SAPCE d) 
       ) 
      ) 
      ((= p1 "H") (xd::symbol:put 'dimension_mode 1)) 
      ((= p1 "V") (xd::symbol:put 'dimension_mode 0)) 
      ((= p1 "A") (xd::symbol:put 'dimension_mode 2)) 
      ((= (type p1) 'LIST) (setq flag nil)) 
      (t) 
    ) 
  ) 
  (if (= (type p1) 'LIST) 
    (progn 
      (if (= (xd::symbol:get 'dimension_mode) 2) 
        (xdrx_sysvar_push '("orthomode" 0)) 
        (xdrx_sysvar_push '("orthomode" 1)) 
      ) 
      (if (setq p2 (getpoint p1 "\n第二点: ")) 
        (progn 
          (mapcar 'set 
                  '(p1 p2) 
                  (if (>= (angle p1 p2) (/ pi 2)) 
                    (list p2 p1) 
                    (list p1 p2) 
                  ) 
          ) 
          (if (setq ss (ssget "F" 
                              (list p1 
                                    p2 
                              ) 
                              (list (cons 8 (xd::symbol:get 'dimension_layer)) 
                                    '(0 . "*line") 
                              ) 
                       ) 
              ) 
            (progn 
              (xdrx_pointmonitor) 
              (setq pts        (mapcar        (function (lambda (x) (last (last x)))) 
                                (ssnamex ss) 
                        ) 
                    vec        (mapcar '- p2 p1) 
                    p        (car (_getoffsetpoints 
                               (* 2 (xd::symbol:get 'dimension_space)) 
                               p1 
                               p2 
                             ) 
                        ) 
              ) 
              (if pts 
                (setq elst (mapcar '(lambda (x y) 
                                      (xdrx_dimension_makerotate x y p (angle p1 p2)) 
                                    ) 
                                   pts 
                                   (cdr pts) 
                           ) 
                ) 
              ) 
              (xdrx_pointmonitor "callback") 
              (getpoint) 
              (xdrx_pointmonitor) 
            ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

Lispboy · 发表于 2016-5-22 16:28:55

给个标注点和最下面的实体的距离参数吧，拖动的是基线的位置

Lispboy · 发表于 2016-5-22 16:30:41

或者给标注点距离和界线长度两个参数，拖动的是MOVE，不过这样也不用拖动了:P，这样适合直接画，更快。

st788796 · 发表于 2016-5-22 16:32:03

Lispboy 发表于 2016-5-22 16:28
给个标注点和最下面的实体的距离参数吧，拖动的是基线的位置

粉色线是基线，距离是标注线距离基线距离，拖动时鼠标点中标注线位置

Lispboy · 发表于 2016-5-22 16:32:38

还有一个，给定标注点距离和界线长度，拖动的是上下翻转，上面标或者下面标。

st788796 · 发表于 2016-5-22 16:33:11

Lispboy 发表于 2016-5-22 16:30
或者给标注点距离和界线长度两个参数，拖动的是MOVE，不过这样也不用拖动了，这样适合直接画，更快。

基线拖动时标注可能会有合并或者增加情况

Lispboy · 发表于 2016-5-22 16:34:10

哈哈，你也想写这个了，我本想的，让给你吧，我不写这个了，我写了一个另外的一个**标注的，一会发上来。

Lispboy · 发表于 2016-5-22 16:35:26

st788796 发表于 2016-5-22 16:33
基线拖动时标注可能会有合并或者增加情况

不是都标注完了吗，怎么还有合并和增加？

st788796 · 发表于 2016-5-22 16:36:36

Lispboy 发表于 2016-5-22 16:34
哈哈，你也想写这个了，我本想的，让给你吧，我不写这个了，我写了一个另外的一个**标注的，一会发上来。

上下翻转是以红线为基准

Lispboy · 发表于 2016-5-22 16:37:04

标注方向按当前UCS X轴， X轴就是个丁字尺，什么方向让用户设置UCS来定。

st788796 · 发表于 2016-5-22 16:39:57

Lispboy 发表于 2016-5-22 16:37
标注方向按当前UCS X轴， X轴就是个丁字尺，什么方向让用户设置UCS来定。

基线位置不同会有不同的 F 交点

Lispboy · 发表于 2016-5-22 16:45:19

st788796 发表于 2016-5-22 16:39
基线位置不同会有不同的 F 交点

向**拷贝那样，别定红线了，不方便，API支持一键回车了，用关键字，翻转，移动。让用户自己灵活控制。
用户定界线长度，加个选择判断是否加第二排全长标注。我觉得做个函数比较好，第一排，第二排参数控制。命令直接调函数。方便以后修改功能。

Lispboy · 发表于 2016-5-22 16:48:29

另外，要支持图块、无边界的填充啊，用图块的轮廓线和直线相交求交点。上面这些都是我以前想的。

st788796 · 发表于 2016-5-23 08:03:05

Lispboy 发表于 2016-5-22 16:48
另外，要支持图块、无边界的填充啊，用图块的轮廓线和直线相交求交点。上面这些都是我以前想的。

经测试填充只能用 XdGe 来求交点了，另外填充如果有孔洞的需要哪些交点？
图块用平行 UCS 的 BOX 边界交点？

newer · 发表于 2016-5-23 08:19:44

st788796 发表于 2016-5-23 08:03
经测试填充只能用 XdGe 来求交点了，另外填充如果有孔洞的需要哪些交点？
图块用平行 UCS 的 BOX 边 ...

拉长线标注这些应该都是标最大的轮廓的，填充标注个最大的边界就行了，要细部标注填充另外在提供工具吧。
插件论坛不是有个求块的轮廓线的吗，别用BOX，用轮廓和线的交点，API有个SEARCHOUTLINE吧。

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

[研讨] 后面的点监视器部分如何写

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

点评