[编程交流] 维

ReMark · 发表于 2022-7-5 19:20:28

手工绘制的好处是不需要lisp。文本覆盖？

tombu · 发表于 2022-7-5 19:21:43

对不起，我从未做过机械工作。我想象一个机械垂直会有这样的效果，在Civil 3D中有无数的东西你不能用普通的AutoCAD来完成。

DuanJinHui · 发表于 2022-7-5 19:27:20

该螺纹的电气和机械不重要，
只要选一条线和一个点，计算另一个点，ps。这个中心线是镜像线，所以很容易得到其他点。

两点，使用对齐尺寸。。。。。。。。。。。。

rlx · 发表于 2022-7-5 19:28:12


(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

DuanJinHui · 发表于 2022-7-5 19:33:43

非常感谢！
这是我需要的。

copy


(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)