无引线的坐标
大家好，正在寻找删除DIMORITY命令的引线的方法。
需要给很多RL加上标签，只在点下方垂直放置文本。
谢谢。 创建Dimstyle
抑制以下内容：
外线1
外线2
箭头->无 可能是。。。。
(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)
)
谢谢Tharwat做得很好。。要垂直显示y坐标，默认情况下它是水平的。可能需要反转x和y。
欢迎你休眠。
我认为Y坐标是垂直定位的，而不是水平定位的，你想把文本旋转成水平还是什么？我没有很好地理解你的意思？
塔瓦特 在我看来，分解维度不是一种好做法。我宁愿为尺寸界线和箭头调用标注替代
只有我的2美分
分解尺寸坐标将仅显示为多行文字，这与分解线性或对齐尺寸没有多行文字差。虽然我完全同意你的观点。
如果您想用另一种没有直线和箭头的样式替换选定的尺寸坐标，这确实是一个非常好的主意。
谢谢 我附加了我必须做的事情。在6km以上每10m增加一个RL水平。
我之前的人制作了个人文本框，可能需要数周的时间。
我添加了“FMG测量点”以支持扩展等，效果很好。
Tharwat，我的y坐标显示的是水平计数，想要垂直。但是我现在完成了任务。
OLC_配置文件。图纸 试试这个问答代码
换成合适的
（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）；
我想目的证明了手段的正当性。
页:
[1]