带修改显示的坐标
大家好，有人可以给我的样本程序，如DIMORITY，但与我的图片附加修改。
我需要我们可以选择是否带有高程，并且引线使用dimstyle中设置的箭头。如果引线点移动，这些值也会自动更改。
见附件
坐标图纸 您好，asos2000，
你是如何成为这样的领导者的？有什么Lisp可以做到的吗？
谢谢 作为对旧程序的修改：
(defun c:DimO ( / *error* ocm units prec fac p )
(vl-load-com)
;; © Lee Mac 2010
(defun *error* ( msg )
(and ocm (setvar 'CMDECHO ocm))
(or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
(princ (strcat "\n** Error: " msg " **")))
(princ)
)
(mapcar 'set '(fac units prec) (mapcar 'getvar '(DIMLFAC DIMLUNIT DIMDEC)))
(setq ocm (getvar 'CMDECHO))
(setvar 'CMDECHO 0)
(while (setq p (getpoint "\nSpecify Point <Exit> : "))
(command "_.dimordinate" "_non" p "_T"
(strcat
"N " (rtos (* fac (cadrp)) units prec)
"\\PE "(rtos (* fac (car p)) units prec)
"\\PEL. "(rtos (* fac (caddr p)) units prec)
)
pause
)
)
(setvar 'CMDECHO ocm)
(princ)
)
谢谢李，但我需要E，N和EL。如果点移动，它可以使用类似箭头的引线。
也可以将文字对齐为引线方向。 麻生太郎的“领袖”实际上是一个动态块。它只是在指向插入点的属性中包含字段，将E表示为X值，N表示为Y。您可能可以对EL执行与Z值相同的操作。要了解他是如何完成的，请选择块并键入BEDIT。现在，您应该看到DB的内部-所有参数（看起来像维度）和动作（像拉伸）。同时双击其中一个属性-请注意，默认值为灰色背景，这意味着它是一个字段。如果你双击它，你会看到它使用的是什么字段代码。由此，您应该能够根据自己的需要进行修改。
对于引线/多重引线，没有这样的字段代码。所以它必须类似于李的代码。您可以向引线添加对象反应器，以在引线移动/拉伸时更新文本-但这有点高级lisping:wink:。
非常感谢您的解释。
但是，如何为该引线指定插入点，并将其更新到引线头部的x、y、z？
非常感谢 不客气！
为了让它自动更新，这就是为什么我把反应堆的东西和李的代码放在一起。这不是很简单。
但是阻塞路由将在诸如regen之类的操作中更新。无需编码。
页:
[1]