求助论坛高手帮忙编制一个批量标注CAD断面图超欠挖插件

lizhgang.jin · 发表于 2015-1-6 17:35:48

非常感谢您！

lizhgang.jin · 发表于 2015-1-6 19:41:18

zxq0220 发表于 2015-1-6 10:48
怎样标？给个图样或图片。

兄台样式在我发的CAD附件里面了，麻烦查看了

口味虾 · 发表于 2015-1-7 00:42:14

(defun c:cqw (/ spl_real spl_design sty pt_n pt pt_near dim_mk)
(setq spl_real (car (entsel "选择实际开挖线 red")))
(setq spl_design (car (entsel "选择设计开挖线 white")))
(setq sty nil)
(setq pt_n (XD::Polyline:GetVertices spl_real))
(foreach pt pt_n
(progn
(setq pt_near (vlax-curve-getClosestPointTo spl_design pt))
;求距离点最近的曲线上的点
(if (xdrx_point_isinside pt spl_design)
(setq sty "隧道欠挖-")
(setq sty "隧道超挖+")
)
(setq dim_mk nil)
;直接生成有问题
;(setq dim_mk (xdrx_dimension_MakeAlign pt pt_near pt_near sty))
;(xdrx_dimension_update dim_mk)
(setq dim_mk (xdrx_dimension_MakeAlign pt pt_near pt_near))
(xdrx_dimension_SetStyle dim_mk sty)
)
)
)

(defun c:cqw (/ spl_real spl_design sty pt_n pt pt_near dim_mk) 
  (setq spl_real (car (entsel "选择实际开挖线 red"))) 
  (setq spl_design (car (entsel "选择设计开挖线 white"))) 
  (setq sty nil) 
  (setq pt_n (XD::Polyline:GetVertices spl_real)) 
  (foreach pt pt_n 
    (progn 
 
      (setq pt_near (vlax-curve-getClosestPointTo spl_design pt)) 
                                        ;求距离点最近的曲线上的点 
      (if (xdrx_point_isinside pt spl_design) 
        (setq sty "隧道欠挖-") 
        (setq sty "隧道超挖+") 
      ) 
      (setq dim_mk nil) 
                                        ;直接生成有问题 
                                        ;(setq dim_mk (xdrx_dimension_MakeAlign pt pt_near  pt_near sty)) 
                                        ;(xdrx_dimension_update dim_mk) 
      (setq dim_mk (xdrx_dimension_MakeAlign pt pt_near pt_near)) 
      (xdrx_dimension_SetStyle dim_mk sty) 
    ) 
  ) 
)

口味虾 · 发表于 2015-1-7 01:37:06

修改了下欠挖的文字都挪到外面去了。

(defun c:cqw (/ spl_real spl_design sty pt_n pt pt_near dim_mk)
(setq spl_real (car (entsel "选择实际开挖线 red")))
(setq spl_design (car (entsel "选择设计开挖线 white")))
(setq pt_n (XD::Polyline:GetVertices spl_real))
(foreach pt pt_n
(progn
(setq sty nil)
(setq pt_near (vlax-curve-getClosestPointTo spl_design pt))
(if (xdrx_point_isinside pt spl_design)
(setq sty "隧道欠挖-")
(setq sty "隧道超挖+")
)
(setq dim_mk (xdrx_dimension_MakeAlign pt pt_near pt_near))
(xdrx_dimension_SetStyle dim_mk sty)
(if (= sty "隧道欠挖-")
(progn
(xdrx_dimension_SetTextPosition
dim_mk
(mapcar '+ pt_near (mapcar '- pt_near pt))
)
)
)
)
)
)

st788796 · 发表于 2015-1-7 08:25:15

本帖最后由 st788796 于 2015-1-7 08:26 编辑

口味虾发表于 2015-1-7 01:37
修改了下欠挖的文字都挪到外面去了。

写的不错，提个建议，判断点在曲线内部无非两个方法，一种是用采样点，构造一个多边形，CAD还提供了一个更精确的方法就是使用 AcBr 类的一个函数，不管用哪种方法，在大量点需要判断在曲线内部计算量都很大，虽然在 ARX 内部但都会有重复动作，第一种判断一次就要取样一次，第二种判断一次就要建立一个 AcBr 用完再释放，虽然你感觉不到，但实际上 API 内部就是这样处理的，其实从效率而言还可以用下面的方法

把曲线变成方向确定的线，利用点的 FirstDeriv 去判断点的内外

(defun c:cqw (/ filter ss e1 e2 pActuals pDesigns pVertors pDists)
(setq filter '((0 . "LWPOLYLINE")
(-4 . "&=")
(70 . 0)
)
)
(if (and (setq e1 (car (xdrx_entsel
"\n选择实际开挖线: "
(cons '(8 . "实际开挖线") filter)
)
)
)
(setq e2 (car (xdrx_entsel
"\n选择设计开挖线: "
(cons '(8 . "设计开挖线") filter)
)
)
)
(progn
(if (not (xdrx_curve_direction e2)) ;_判断逆时针
(xdrx_curve_reverse e2)
)
t
)
)
(progn
(setq pActuals (xdrx_getpropertyvalue e1 "Vertices") ;_实际开挖点
pDesigns (mapcar '(lambda (x)
(xdrx_curve_getclosestpoint e2 x)
)
pActuals
) ;_对应设计点
pVectors (mapcar
'(lambda (x)
(mapcar '+
x
(xdrx_curve_getfirstderiv e2 x)
)
)
pDesigns
) ;_设计线对应点处切线方向
pDists (mapcar '(lambda (x y z)
(xdrx_point_dist2line x y z)
)
pActuals
pDesigns
pVectors
) ;_距离正负表示在设计线内外
)
;;mapcar 处理
)
)
)

(defun c:cqw (/ filter ss e1 e2 pActuals pDesigns pVertors pDists) 
  (setq        filter '((0 . "LWPOLYLINE") 
                 (-4 . "&=") 
                 (70 . 0) 
                ) 
  ) 
  (if (and (setq e1 (car (xdrx_entsel 
                           "\n选择实际开挖线: " 
                           (cons '(8 . "实际开挖线") filter) 
                         ) 
                    ) 
           ) 
           (setq e2 (car (xdrx_entsel 
                           "\n选择设计开挖线: " 
                           (cons '(8 . "设计开挖线") filter) 
                         ) 
                    ) 
           ) 
           (progn 
             (if (not (xdrx_curve_direction e2)) ;_判断逆时针 
               (xdrx_curve_reverse e2) 
             ) 
             t 
           ) 
      ) 
    (progn 
      (setq pActuals (xdrx_getpropertyvalue e1 "Vertices") ;_实际开挖点 
            pDesigns (mapcar '(lambda (x) 
                                (xdrx_curve_getclosestpoint e2 x) 
                              ) 
                             pActuals 
                     ) ;_对应设计点 
            pVectors (mapcar 
                       '(lambda        (x) 
                          (mapcar '+ 
                                  x 
                                  (xdrx_curve_getfirstderiv e2 x) 
                          ) 
                        ) 
                       pDesigns 
                     ) ;_设计线对应点处切线方向 
            pDists   (mapcar '(lambda (x y z) 
                                (xdrx_point_dist2line x y z) 
                              ) 
                             pActuals 
                             pDesigns 
                             pVectors 
                     ) ;_距离正负表示在设计线内外 
      ) 
      ;;mapcar 处理 
    ) 
  ) 
)

lizhgang.jin · 发表于 2015-1-7 08:55:44

st788796 发表于 2015-1-7 08:25
写的不错，提个建议，判断点在曲线内部无非两个方法，一种是用采样点，构造一个多边形，CAD还提供了一个 ...

命令: cqw ; 错误: no function definition: XDRX_ENTSEL
大师你编的代码我复制到记事本改为LSP，运行不了显示上面的结果。

st788796 · 发表于 2015-1-7 08:57:40

lizhgang.jin 发表于 2015-1-7 08:55
命令: cqw ; 错误: no function definition: XDRX_ENTSEL
大师你编的代码我复制到记事本改为LSP，运行不 ...

上面程序没有写标注部分，不是完整应用，另外需要加载 XDRXAPI

lizhgang.jin · 发表于 2015-1-7 08:59:30

口味虾发表于 2015-1-7 01:37
修改了下欠挖的文字都挪到外面去了。

命令: cqw 选择实际开挖线 red选择设计开挖线 white; 错误: no function definition:
XD::POLYLINE:GETVERTICES
大师我把代码复制后改LSP加载运行出线错误，能否不要搞实际开挖线红色，设计开挖线白色。不要颜色，颜色可自己定。

lizhgang.jin · 发表于 2015-1-7 09:02:42

口味虾发表于 2015-1-7 01:37
修改了下欠挖的文字都挪到外面去了。

昨天那位大师的程序最符合心意，给他提了两个建议，一是文字放到外面，二是可选隔几点后，选开挖线，选设计线实现自动标注。希望高人们看看他的程序。帮改改。

lizhgang.jin · 发表于 2015-1-7 09:06:02

dwp@hamco 发表于 2015-1-6 17:31
嗯，刚才你说的这两点，改起来不算难。

大师今天没看到你的大作，试了一下另外两位老师的程序，运行不了，还是您的最符合心意，期盼您的改进版。

lizhgang.jin · 发表于 2015-1-7 09:08:37

st788796 发表于 2015-1-7 08:57
上面程序没有写标注部分，不是完整应用，另外需要加载 XDRXAPI

能否提供个完整的我再试试呢。

lizhgang.jin · 发表于 2015-1-7 09:09:23

lizhgang.jin 发表于 2015-1-7 09:08
能否提供个完整的我再试试呢。

本人菜鸟都不是，希望各位大师本着人道，多多指点。

lizhgang.jin · 发表于 2015-1-7 09:25:11

黑猫白猫只要能抓老鼠就是好猫，我也不懂哪种编程语言最好，我只知道编的程序要易用，能用，就是好程序。个人见解。求答案。我就会加载CAD的VLX/LSP/ARX/等程序，别的不知到怎么用，还得向各位大师学习。谢谢。

dwp@hamco · 发表于 2015-1-7 09:27:56

我用的方法可能比较原始，算法不够好，速度不快。看楼主确实有点着急，需要帮助，今天花了点时间按他的意见修改了一下。程序写得不好的地方，望各位大大多多指点！

lizhgang.jin · 发表于 2015-1-7 10:04:21

dwp@hamco 发表于 2015-1-7 09:23

老师您的程序试用了，很好很方便。如果你有空的话还可以有个小改动，就是我标完一个图后，下一个图标的时候，选间隔几点不用重输入。程序已经很满意了，谢谢老师。

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

[已解决] 求助论坛高手帮忙编制一个批量标注CAD断面图超欠挖插件

评分

点评

点评

点评

点评