如何快速标注筷基点（新手问题）

qcw911

如何快速标注块基点
中心是块的基点

大侠们帮忙

Andyhon

请先试 QDim 命令

qcw911

Andyhon 发表于 2011-11-22 20:55
请先试 QDim 命令

试了，
命令: _qdim
关联标注优先级 = 端点
选择要标注的几何图形: 指定对角点: 找到 4 个
选择要标注的几何图形:
发现无效的标注点号。

我想要的只是块的基点，端点排除掉

Andyhon

上传您的图纸呗!

qcw911

Andyhon 发表于 2011-11-22 21:04
上传您的图纸呗!

别这么客气
我有求于你啊

这个是我现做的
就是快速标注 像qdim那样的

Andyhon

试了一下,得先用圆来作替身,才能搭 QDim 的便车!

Andyhon

一个应急方案

;;; 基于图样的假设,调试之用

2. 
   
3. 
   
4. (defun C:test ()
   
5.    (setq ss (ssget '((0 . "INSERT")))
   
6.          nn (sslength ss)
   
7.        ssPt (ssadd)
   
8.    )
   
9.    (while (setq ee (ssname ss (setq nn (1- nn))))
   
10.      (entmake
    
11.        (list
    
12.          '(0 . "POINT")
    
13.          (assoc 10 (entget ee))
    
14.      ) )
    
15.      (ssadd (entlast) ssPt)
    
16.    )
    
17.    (sssetfirst nil ssPt)
    
18.    (vla-SendCommand
    
19.      (vla-get-ActiveDocument (vlax-get-acad-object))
    
20.      "QDim "
    
21.    )
    
22. )
    

<br /> <br /> (defun C:test ()<br />    (setq ss (ssget '((0 . "INSERT")))<br />          nn (sslength ss)<br />        ssPt (ssadd)<br />    )<br />    (while (setq ee (ssname ss (setq nn (1- nn))))<br />      (entmake<br />        (list<br />          '(0 . "POINT")<br />          (assoc 10 (entget ee))<br />      ) )<br />      (ssadd (entlast) ssPt)<br />    )<br />    (sssetfirst nil ssPt)<br />    (vla-SendCommand<br />      (vla-get-ActiveDocument (vlax-get-acad-object))<br />      "QDim "<br />    )<br /> )<br />

hyong10000