模仿天正逐点标注-飞翔版

韩飞翔

之前用过明经上别人的驻点标注，感觉不顺手，自己又写了一个；有需要的自行下载

2024.12.23内部修正自定义函数；修正bug

decemc

直接在CAD里面没实物的标注，回出现
连续标注点; 错误: 参数类型错误: lentityp nil

惜惜2

这种效果吗？

2. (defun c:D12 ()
   
3.   (setvar "orthomode" 0)
   
4.   (command "dimaligned")
   
5.   (setq pt1 (getpoint "\n指定标注起点: "))
   
6.   (setq pt2 (getpoint pt1 "\n指定标注终点: "))
   
7.   (setq pt3 (getpoint "\n指定标注放置位置: "))  
   
8.   (command pt1 pt2 pt3)   
   
9.   (command "dimcontinue")
   
10.   (princ)
    
11. )

(defun c:D12 ()<br />   (setvar "orthomode" 0) <br />   (command "dimaligned") <br />   (setq pt1 (getpoint "\n指定标注起点: ")) <br />   (setq pt2 (getpoint pt1 "\n指定标注终点: ")) <br />   (setq pt3 (getpoint "\n指定标注放置位置: "))  <br />   (command pt1 pt2 pt3)   <br />   (command "dimcontinue")<br />   (princ)<br /> )

你有种再说一遍

https://www.cnblogs.com/JJBox/p/14454155.html
我也有C#版本,嘻嘻
不过我没有优化下去了,大概十万就会卡了,
还是要上四叉树或者哈希网格来优化才行,
还得加一个倒序索引...

tranque

确实像，点赞

wfg155

下载试用一下，感谢分享

yyz123121

试用了下 很好用

xy233

很好用，感谢

不一样地设计

确实好一些，感谢分享

阿猪蛋

下载试用一下，感谢分享

bonny