pol之间的自动距离

Basomis · 发表于 2022-7-5 22:16:33

我需要一些LISP例程自动编号多边形顶点之间的距离。

MSasu · 发表于 2022-7-5 22:26:10

为此，我将使用具有适当标注样式的内置QDIM命令（即隐藏箭头、尺寸界线和尺寸线）；不要忘记先设置适当的UCS。调用QSELECT后，使用过滤器选择测量特征小于给定值的尺寸，并将其删除。这也将确保结果是关联的。

Basomis · 发表于 2022-7-5 22:28:06

出于某种奇怪的原因，QDIM似乎无法在AutoCad Map上工作。很遗憾，上面的建议并没有解决这个问题。这个LISP例程将非常有帮助，因为在每个顶点之间放置这些距离需要很长时间。

hanhphuc · 发表于 2022-7-5 22:33:54

我不确定它是否与之前的线程类似？

距离文本是关联的，因为它实际上是一个没有箭头的维度，看起来像普通的线对象（类似于mircea的想法）
如果只是一段距离？

copy


(defun c:test (/ p l e d var )
 (setq        l   '("CMDECHO" "OSMODE" "DIMTIH" "DIMTOH" "DIMASSOC")
var (mapcar 'getvar l)
) ;_ end of setq
 (mapcar 'setvar l '(0 0 0 0 2))
 (if (setq e (car (entsel "\nPick polygon.. "))) ;[color="red"]<---LWPOLYLINE[/color]
   (setq p (mapcar 'cdr (vl-remove-if-not ''((x) (= (car x) 10)) (entget e)))
  p (if        (= (cdr (assoc 70 (entget e))) 1)
      (append p (list (car p) (cadr p)))
      p
      ) ; if
  d (mapcar ''((a b) ([color="blue"]ppdim[/color] a b)) p (cdr p))
  ) ;_ end of setq
   (princ "\nInvalid. ")
   ) ;_ end of if
 (mapcar 'setvar l var)
 (princ)
 ) ;_ end of defun
;little tweak from previous [color="red"]ldim[/color] function
;http://www.cadtutor.net/forum/showthread.php?89187-Not-Aligned-Not-Linear-Lengths-but-geometric-or-List-Length
(defun [color="blue"]ppdim[/color] ( p1 p2 / mp sz )
;hanhphuc 24/10/2014
 (setq sz (* 0.05 (distance p1 p2)) mp (mapcar '(lambda (a b) (* 0.5 (+ a b))) p1 p2))
 (vl-cmdf "_dimaligned" p1 p2 mp)
 ('((obj)
    (mapcar
     '(lambda (a b) (vlax-put obj a b))
     '("Arrowhead1Type"         "Arrowhead2Type"          "extensionlineextend"           "extensionlineoffset"
"TextHeight"                 "TextInside"                  "VerticalTextPosition"   "TextGap" 
)
     (list 19 19 0. 0. sz 1 1 sz)
     )
    (vlax-put-property obj 'TextFill :vlax-true)
    )
   (vlax-ename->vla-object (entlast))
   )
 ) ;_ end of defun

Basomis · 发表于 2022-7-5 22:38:49

太棒了，它删除了textfill。但我还想删除数字下方的尺寸线。数字应该四舍五入到小数点后2位，每个数字都应该出现在多边形之外。有可能实现这些要求吗？

hanhphuc · 发表于 2022-7-5 22:41:49

copy


..
(vlax-put-property obj 'TextFill :vlax-true)
..

该对象实际上是一个维度，它使用当前的dimstyle，
但如果你想移除它，我认为需要爆炸，但它会变得非关联。
如果只是简单地将文本放置在多边形上，可以重新编写新代码，也可以只搜索web

Basomis · 发表于 2022-7-5 22:47:20

将其添加到（ppdim）子功能中

copy


(defun c:test (/ p l e d var )
 (setq        l   '("CMDECHO" "OSMODE" "DIMTIH" "DIMTOH" "DIMASSOC" [color="red"]"DIMDEC"[/color])
var (mapcar 'getvar l)
) ;_ end of setq
 (mapcar 'setvar l '(0 0 0 0 2 [color="red"]2[/color]))
...
...

HTH，M.R。

hanhphuc · 发表于 2022-7-5 22:53:51

太好了，数字下面的那行不再出现了。剩下的唯一一件事是如何使所有数字显示在多边形之外？

marko_ribar · 发表于 2022-7-5 22:56:45

在我的Lisp程序中，像autoaldim。lsp，我在www，pdim上找到了。具有此选项的lsp（内部/外部）。。。现在，您必须将已经解释的内容与此pdim结合起来。lsp。。。

copy


     '("Arrowhead1Type"     "Arrowhead2Type"      "extensionlineextend"       "extensionlineoffset"
       "TextHeight"         "TextInside"          "VerticalTextPosition"      "TextGap" 
       [color=red]"DimLine1Suppress"   "DimLine2Suppress"[/color]
       )
     (list 19 19 0. 0. sz 1 1 sz [color=red]1 1[/color])

HTH公司

Basomis · 发表于 2022-7-5 23:02:20

您的pdim工作正常，但如果OP不需要尺寸线。
我的2美分：制作独特的“pdim”层。
c:pdim done->分解的“pdim”->ssget all exploded line->（命令“\u erase”ss）

*OP可以选择是否关联

[编程交流] pol之间的自动距离

发表回复

精选推荐