标准化标注源码解析与测试（支持UCS，智能标注样式）

海盗曹

向结构同行学习

ynhh

大师能写一个自动设置当前图中各种标注样式的小数点位N位数的程序吗？
例如用此程序将图中所有各种标注尺寸统一表达为小数点后N位数的那样

林霄云

林霄云 发表于 2014-2-21 18:38
补充一下，使用command line时，需要取消捕捉，修改代码如下
原代码修改为及时设置，这样是可以避免捕捉丢 ...

我看到猫老师文章似乎这么做：

2. (command "DIMALLIGNED" "non" pt1 "non" pt2 "non" pt3);透明调用捕捉设置，且设置为“non”

(command "DIMALLIGNED" "non" pt1 "non" pt2 "non" pt3);透明调用捕捉设置，且设置为“non”

enn09

Error: AutoCAD 变量设置被拒绝: "DIMBLK" ""

enn09

再改下文字样式就能用了，感谢大师~

lidaxiu

看着不错，学习了

林霄云

两处修改，首先是外循环取消，改为连续标注模式的内循环

2. ;(setq oldosmode (getvar "osmode"))
   
3. ;(setvar "osmode" 0)
   
4. (command "DIMALIGNED" "non" pt1 "non" pt2 "non" pt3)
   
5. ; (setvar "osmode" oldosmode)
   
6. (while (setq         pt1 pt2
   
7.                                 pt2 (getpoint "\n下一点<exit>"))
   
8. (command "DIMALIGNED" "non" pt1 "non" pt2 "non" pt3)
   
9. );while 支持连续标注

;(setq oldosmode (getvar "osmode"))<br /> ;(setvar "osmode" 0)<br /> (command "DIMALIGNED" "non" pt1 "non" pt2 "non" pt3)<br /> ; (setvar "osmode" oldosmode)<br /> (while (setq         pt1 pt2<br />                                 pt2 (getpoint "\n下一点<exit>"))<br /> (command "DIMALIGNED" "non" pt1 "non" pt2 "non" pt3)<br /> );while 支持连续标注

其次是提示修改

2. (setq temp-fac (getint "\n当前比例下，输入测量值为标注替代值的倍数<1>"))

(setq temp-fac (getint "\n当前比例下，输入测量值为标注替代值的倍数<1>"))

冬谧春醒

请问这是什么问题   错误: 参数类型错误: numberp: nil
怎样修改呢？

林霄云

为了获得连续标注效果，修改如下代码

2. (while (setq         pt1a pt2
   
3.                                 pt2 (getpoint pt1a "\n下一点<exit>")
   
4.                                 pt2 (inters pt1 pt1a pt2 (offset_point pt2 0 hnu:dimscale (angle pt1 pt1a)) nil )) ;修正pt2
   
5. (command "DIMALIGNED" "non" pt1a "non" pt2 "non" pt3)

(while (setq         pt1a pt2<br />                                 pt2 (getpoint pt1a "\n下一点<exit>")<br />                                 pt2 (inters pt1 pt1a pt2 (offset_point pt2 0 hnu:dimscale (angle pt1 pt1a)) nil )) ;修正pt2<br /> (command "DIMALIGNED" "non" pt1a "non" pt2 "non" pt3)

即，用inters，一个交点，替换输入的点。

我爱lisp

好东西要顶，留脚板印