casualmasters 发表于 2022-7-6 14:24:07

尺寸标注帮助

您好，我需要帮助。请问有什么方法可以使autocad自动实现每个维度和级别的操作吗
我的意思是，我想，但每个点的维度可以是任何lisp或任何使我的生活更轻松的方法
图纸1.dwg

casualmasters 发表于 2022-7-6 14:35:48

我想让autocad自动化每个点的级别，无论用什么方法都可以做到这一点

Lee Mac 发表于 2022-7-6 14:36:55

这个怎么样？
 

(defun c:lazy_dim (/ doc spc bpt ss ept)
(vl-load-com)
(setq doc (vla-get-ActiveDocument
             (vlax-get-Acad-Object))
       spc (if (zerop (vla-get-activespace doc))
             (if (= (vla-get-mspace doc) :vlax-true)
               (vla-get-modelspace doc)
               (vla-get-paperspace doc))
             (vla-get-modelspace doc)))
(if (and (setq bpt (getpoint "\nSelect Base Point: "))
          (princ "\nSelect Points...")
          (setq ss (ssget '((0 . "POINT")))))
   (foreach pt (mapcar 'vlax-3D-point
               (vl-sort
                   (mapcar
                     (function
                     (lambda (x)
                         (cdr (assoc 10 (entget x)))))
                     (vl-remove-if 'listp
                     (mapcar 'cadr (ssnamex ss))))
                   (function
                     (lambda (x1 x2)
                     (> (cadr x1) (cadr x2))))))
   (if (setq ept
         (getpoint bPt "\nSelect Point to Dimension: "))
       (progn
         (vla-addDimRotated spc
         (vlax-3D-point bPt)
             (vlax-3D-point ePt) pt 0))))
   (princ "\n<< Incorrect Selection >>"))
(princ))
            

 
选择基点，然后选择所有点（红色），然后只需单击每个点即可进行标注。

casualmasters 发表于 2022-7-6 14:42:25

谢谢你，李先生，但这对我不起作用
 
我会告诉你我需要什么
我想，但水平自动，我会进入一个水平，假设它是-8.91米，但它的所有其他水平非常非常感谢李先生的帮助

Lee Mac 发表于 2022-7-6 14:51:38

它应该有效。我在你贴的画上试过了，效果很好。

casualmasters 发表于 2022-7-6 14:58:07

我会再试一次

casualmasters 发表于 2022-7-6 15:06:05

李先生，我不知道该说什么，但我会再请你帮忙的
我只想做一个基准，给它一个水平，它将是-1.00m，在我选择的任何水平线之后，一个lisp自动将其水平写在基准之上

Lee Mac 发表于 2022-7-6 15:09:07

 
我的另一个Lisp程序对你有用吗？

casualmasters 发表于 2022-7-6 15:17:59

它只适用于我上传的文件，但我尝试了另一个，但id无效

Lee Mac 发表于 2022-7-6 15:22:31

我不知道为什么，我在任意的图画上试过，一切似乎都很好——发生了什么错误？
页: [1] 2
查看完整版本: 尺寸标注帮助