海盗曹 发表于 2014-2-25 13:36:51

向结构同行学习

ynhh 发表于 2014-2-25 14:52:26

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

林霄云 发表于 2014-3-2 10:56:40

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

我看到猫老师文章似乎这么做：(command "DIMALLIGNED" "non" pt1 "non" pt2 "non" pt3);透明调用捕捉设置，且设置为“non”

enn09 发表于 2014-4-24 09:08:30

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

enn09 发表于 2014-4-24 15:22:58

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

lidaxiu 发表于 2014-4-25 19:18:05

看着不错，学习了

林霄云 发表于 2014-5-6 18:00:04

两处修改，首先是外循环取消，改为连续标注模式的内循环;(setq oldosmode (getvar "osmode"))
;(setvar "osmode" 0)
(command "DIMALIGNED" "non" pt1 "non" pt2 "non" pt3)
; (setvar "osmode" oldosmode)
(while (setq         pt1 pt2
                                pt2 (getpoint "\n下一点<exit>"))
(command "DIMALIGNED" "non" pt1 "non" pt2 "non" pt3)
);while 支持连续标注其次是提示修改(setq temp-fac (getint "\n当前比例下，输入测量值为标注替代值的倍数<1>"))

冬谧春醒 发表于 2014-5-7 13:03:17

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

林霄云 发表于 2014-5-26 22:54:34

为了获得连续标注效果，修改如下代码(while (setq         pt1a pt2
                                pt2 (getpoint pt1a "\n下一点<exit>")
                                pt2 (inters pt1 pt1a pt2 (offset_point pt2 0 hnu:dimscale (angle pt1 pt1a)) nil )) ;修正pt2
(command "DIMALIGNED" "non" pt1a "non" pt2 "non" pt3)即，用inters，一个交点，替换输入的点。

我爱lisp 发表于 2014-6-3 16:17:47

好东西要顶，留脚板印
页: 1 [2] 3 4 5
查看完整版本: 标准化标注源码解析与测试（支持UCS，智能标注样式）