无引线的坐标

Dormant · 发表于 2022-7-6 08:34:20

大家好，

正在寻找删除DIMORITY命令的引线的方法。

需要给很多RL加上标签，只在点下方垂直放置文本。

谢谢。

pBe · 发表于 2022-7-6 08:47:34

创建Dimstyle
抑制以下内容：
外线1
外线2
箭头->无

Tharwat · 发表于 2022-7-6 08:47:49

可能是。。。。


(defun c:TesT (/                 selectionset           integer
       selectionsetname         elist                   newselectionset
       number                 newselectionsetname
      )
;;; Tharwat 15. Dec. 2011 ;;;
 (if (setq selectionset (ssget "_:L" '((0 . "DIMENSION"))))
   (repeat (setq integer (sslength selectionset))
     (setq selectionsetname
     (ssname selectionset
             (setq integer (1- integer))
     )
     )
     (if
(member
  (cdr
    (assoc 100 (setq elist (reverse (entget selectionsetname))))
  )
  '("AcDbOrdinateDimension")
)
 (progn
   (command "_.explode" selectionsetname)
   (setq newselectionset (ssget "_P"))
   (repeat (setq number (sslength newselectionset))
     (setq newselectionsetname
            (ssname newselectionset
                    (setq number (1- number))
            )
     )
     (if
       (eq (cdr (assoc 0 (entget newselectionsetname))) "LINE")
        (entdel newselectionsetname)
     )
   )
 )
     )
   )
   (princ)
 )
 (princ)
)

Dormant · 发表于 2022-7-6 08:57:36

谢谢Tharwat做得很好。。要垂直显示y坐标，默认情况下它是水平的。可能需要反转x和y。

Tharwat · 发表于 2022-7-6 09:02:24

欢迎你休眠。

我认为Y坐标是垂直定位的，而不是水平定位的，你想把文本旋转成水平还是什么？我没有很好地理解你的意思？

塔瓦特

pBe · 发表于 2022-7-6 09:09:30

在我看来，分解维度不是一种好做法。我宁愿为尺寸界线和箭头调用标注替代

只有我的2美分

Tharwat · 发表于 2022-7-6 09:16:06

分解尺寸坐标将仅显示为多行文字，这与分解线性或对齐尺寸没有多行文字差。虽然我完全同意你的观点。

如果您想用另一种没有直线和箭头的样式替换选定的尺寸坐标，这确实是一个非常好的主意。

谢谢

Dormant · 发表于 2022-7-6 09:24:40

我附加了我必须做的事情。在6km以上每10m增加一个RL水平。

我之前的人制作了个人文本框，可能需要数周的时间。

我添加了“FMG测量点”以支持扩展等，效果很好。

Tharwat，我的y坐标显示的是水平计数，想要垂直。但是我现在完成了任务。
OLC_配置文件。图纸

fixo · 发表于 2022-7-6 09:32:18

试试这个问答代码
换成合适的
[code]（defun C:dor（/*error*acsp actsp adoc hgt ip ord osm tgap tp）（或（vl load com））（defun*error*（msg）（if adoc（vla endundomark adoc））（cond（（not msg））（（member msg’（“Function cancelled”“quit/exit abort”））（（princ（strcat“**”error：“msg”**”））（if osm（setvar‘osmode osm））（princ））；；主要部分（setq adoc（vla get activedocument（vlax get acad object））actsp（vla get activespace adoc））（if（zerop actsp）（setq acsp（vla get paperspace adoc））（setq acsp（vla get modelspace adoc）））（vla startundomark adoc）（setq osm（getvar'osmode））（setq hgt 1.0）；

pBe · 发表于 2022-7-6 09:36:47

我想目的证明了手段的正当性。

[编程交流] 无引线的坐标

发表回复

精选推荐