带修改显示的坐标

Pither Rukka · 发表于 2022-7-6 10:09:29

大家好，
有人可以给我的样本程序，如DIMORITY，但与我的图片附加修改。
我需要我们可以选择是否带有高程，并且引线使用dimstyle中设置的箭头。如果引线点移动，这些值也会自动更改。

asos2000 · 发表于 2022-7-6 10:19:03

见附件
坐标图纸

Michaels · 发表于 2022-7-6 10:28:39

您好，asos2000，

你是如何成为这样的领导者的？有什么Lisp可以做到的吗？

谢谢

Lee Mac · 发表于 2022-7-6 10:41:16

作为对旧程序的修改：

copy


(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 (cadr  p)) units prec)
       "\\PE "  (rtos (* fac (car   p)) units prec)
       "\\PEL. "(rtos (* fac (caddr p)) units prec)
     )
     pause
   )
 )
 (setvar 'CMDECHO ocm)
 (princ)
)

Pither Rukka · 发表于 2022-7-6 10:45:02

谢谢李，但我需要E，N和EL。如果点移动，它可以使用类似箭头的引线。
也可以将文字对齐为引线方向。

irneb · 发表于 2022-7-6 10:54:42

麻生太郎的“领袖”实际上是一个动态块。它只是在指向插入点的属性中包含字段，将E表示为X值，N表示为Y。您可能可以对EL执行与Z值相同的操作。要了解他是如何完成的，请选择块并键入BEDIT。现在，您应该看到DB的内部-所有参数（看起来像维度）和动作（像拉伸）。同时双击其中一个属性-请注意，默认值为灰色背景，这意味着它是一个字段。如果你双击它，你会看到它使用的是什么字段代码。由此，您应该能够根据自己的需要进行修改。
对于引线/多重引线，没有这样的字段代码。所以它必须类似于李的代码。您可以向引线添加对象反应器，以在引线移动/拉伸时更新文本-但这有点高级lisping:wink:。

Michaels · 发表于 2022-7-6 11:04:11

非常感谢您的解释。

但是，如何为该引线指定插入点，并将其更新到引线头部的x、y、z？

非常感谢

irneb · 发表于 2022-7-6 11:11:33

不客气！
为了让它自动更新，这就是为什么我把反应堆的东西和李的代码放在一起。这不是很简单。

但是阻塞路由将在诸如regen之类的操作中更新。无需编码。

[编程交流] 带修改显示的坐标

发表回复

精选推荐