对不起，我从未做过机械工作。我想象一个机械垂直会有这样的效果，在Civil 3D中有无数的东西你不能用普通的AutoCAD来完成。
该螺纹的电气和机械不重要，
只要选一条线和一个点，计算另一个点，ps。这个中心线是镜像线，所以很容易得到其他点。
两点，使用对齐尺寸。。。。。。。。。。。。
(defun c:dimdim (/ cline pt1 pt2 pt3 dis inp dimtext)
(if (and (setq pt1 (getpoint "\nSelect outer point"))
(setvar "lastpoint" pt1)
(setq cline (cadr (entsel "\nSelect centerline"))))
(progn
(setq pt2 (osnap cline "per")
pt3 (polar pt1 (angle pt1 pt2) (* 2 (distance pt1 pt2)))
dis (rtos (distance pt1 pt3) 2 2))
(Initget "Yes No")
(setq inp
(getkword
(strcat "\nEnter distance (" dis ") with %%c <Yes/No> : ")))
(cond
((member inp '("Yes" nil ""))(setq dimtext (strcat "%%c" dis)))
(t (setq dimtext dis)))
(command "dim1" "al" pt1 pt3 pause dimtext)
)
)
)
试试看。。。
gr.Rlx
非常感谢！
这是我需要的。
(command "dim1" "al" pt1 pt3 pause dimtext)
(setq e1 (entlast))
(setq obj (vlax-ename->vla-object e1))
(vla-put-extline2suppress obj :vlax-true)
(vla-put-DimLine2Suppress obj :vlax-true)
最后一部分不在工作描述中，所以我假设你做了一个特定的dimstyle:-）
gr.Rlx
嗨，伙计，这是一个特定的维度，所以，不需要新的dimstyle
为什么需要使用“setvar”？可以替换吗？
setvar用于获取中心线上的垂直点，因此我可以从那里计算“镜像”点，即尺寸的另一点。但别担心，这个var会自动替换为您点击的每一个（最后一个）点。这样，它应该可以在各个角度工作（尚未测试）
gr.Rlx
页:
1
[2]