求个CAD插件，能对标注求和

JYL888 · 发表于 2017-10-31 14:47:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如题，能对标注的尺寸，进行相加求和

Lispboy · 发表于 2017-10-31 15:51:19

(defun c:tt ()
(xdrx_begin)
(xdrx_initssget "\n选择要统计长度的标注<退出>:")
(if (setq ss (ssget '((0 . "DIMENSION")
(-4 . "<OR")
(70 . 32)
(70 . 33)
(-4 . "OR>")
)
)
)
(progn (setq lst (mapcar
'(lambda (x)
(setq val (xdrx_getpropertyvalue x "dimensiontext"))
(if (= val "")
(xdrx_getpropertyvalue x "Measurement")
(atof val)
)
)
(xdrx_pickset->ents ss)
)
val (apply '+ lst)
)
(xdrx_prompt "\n选择的标注总长度为:" val)
)
)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (xdrx_begin) 
  (xdrx_initssget "\n选择要统计长度的标注<退出>:") 
  (if (setq ss (ssget '((0 . "DIMENSION") 
                        (-4 . "<OR") 
                        (70 . 32) 
                        (70 . 33) 
                        (-4 . "OR>") 
                       ) 
               ) 
      ) 
    (progn (setq lst (mapcar 
                       '(lambda        (x) 
                          (setq val (xdrx_getpropertyvalue x "dimensiontext")) 
                          (if (= val "") 
                            (xdrx_getpropertyvalue x "Measurement") 
                            (atof val) 
                          ) 
                        ) 
                       (xdrx_pickset->ents ss) 
                     ) 
                 val (apply '+ lst) 
           ) 
           (xdrx_prompt "\n选择的标注总长度为:" val) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

newer · 发表于 2017-10-31 15:26:19

本帖最后由 newer 于 2017-10-31 15:28 编辑

截取图片上传，求和后结果输出样式截图上传，测试DWG压缩RAR上传。

JYL888 · 发表于 2017-10-31 15:41:01

newer 发表于 2017-10-31 15:26

如图所示，插件统计这些标注，求和，然后结果可以窗口显示，也可以输出到EXCEL

JYL888 · 发表于 2017-10-31 15:55:36

Lispboy 发表于 2017-10-31 15:51

求问，启动键是哪个啊？

Lispboy · 发表于 2017-10-31 16:20:55

论坛插件，代码C:后面的字符串，就是命令名。建议你多看看论坛帖子。

JYL888 · 发表于 2017-10-31 16:56:01

Lispboy 发表于 2017-10-31 16:20

谢谢，代码很好使，完美！！！！

JYL888 · 发表于 2017-11-1 08:35:44

Lispboy 发表于 2017-10-31 16:20

求问，知不知道，如何把自己下载的插件放到晓东工具箱里去，然后放到常用命令栏？？？

newer · 发表于 2017-11-1 08:43:45

JYL888 发表于 2017-11-1 08:35

晓东工具箱安装目录下SYS目录下有个文件 xd_ccomandlist.dat,
1、你要确保能自动加载你的LISP文件（具体方法搜索论坛）
2、修改这个DAT文件

命令设置 XDTB_Commandmenu XD:Commandmenu
测量长度 XDTB_Curvelength XD:Curvelength
曲线面积 XDTB_Curvearea XD:Curvearea
线变复线 XDTB_L2PL XD:L2PL
快速选择 XDTB_FastSelect XD:FastSelect
出图比例 XDTB_Drawscale XD:Drawscale
选层保留 XDTB_Layerrev XD:Layerrev
所有层开 XDTB_LyrOnAll XD:LyrOnAll
选层关闭 XDTB_LyrOffByPick XD:LyrOffByPick
组选开关 Xgrouponof XD:LyrOffByPick

10个常用命令，
每行一个，第一个是汉字显示的命令名，第二个是LISP文件C:后面的定义的命令字符串，第三个是想定义内部命令的字符串
你按照这个格式修改一个保存DAT文件，重进CAD就有了。

JYL888 · 发表于 2017-11-1 09:27:06

newer 发表于 2017-11-1 08:43

第三个不能理解，怎么改，例如这个代码，应该怎么盖到DAT文件中去？？？？

(defun c:tt () (xdrx_begin) (xdrx_initssget "\n选择要统计长度的标注<退出>:") (if (setq ss (ssget '((0 . "DIMENSION") (-4 . "<OR") (70 . 32) (70 . 33) (-4 . "OR>") ) ) ) (progn (setq lst (mapcar '(lambda (x) (setq val (xdrx_getpropertyvalue x "dimensiontext")) (if (= val "") (xdrx_getpropertyvalue x "Measurement") (atof val) ) ) (xdrx_pickset->ents ss) ) val (apply '+ lst) ) (xdrx_prompt "\n选择的标注总长度为:" val) ) ) (xdrx_end) (princ))

JYL888 · 发表于 2017-11-1 09:36:02

newer 发表于 2017-11-1 08:43

可不可以把自己的插件，弄到这个库中，然后在设置里往里面添加？？？这个库在哪边？

newer · 发表于 2017-11-1 09:38:34

JYL888 发表于 2017-11-1 09:27

拷贝的代码，你要保存成扩展名为.lsp的文件，放到ACAD支持目录里面，然后设置它自动加载，怎么做，搜索论坛。

你会加载程序了，剩下就是怎么执行了，

你贴的代码，C:TT，标识TT是命令名，不过推荐你修改成别的字符串，要是以后还是C:TT的，会覆盖，只执行最后定义的TT。

上面第三个，你照猫画虎随便改。

多动手，自己试试。

JYL888 · 发表于 2017-11-1 10:16:31

newer 发表于 2017-11-1 09:38

好像不好用，改了之后，常用命令栏不显示，有没有办法把插件加到这个库的某个目录下？？

zhaoyafei19 · 发表于 2017-11-1 21:31:50

学习了，谢谢

xyp1964 · 发表于 2017-11-1 22:13:39

(defun c:tt ()
(princ "\n选择要统计长度的标注<退出>:")
(if (setq ss (ssget '((0 . "DIMENSION")))
i -1
aa 0
)
(progn
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq a (cdr (assoc 42 (entget s1)))
aa (+ aa a)
)
)
(princ (strcat "\n选择的标注总长度为: " (rtos aa 2 0)))
)
)
(princ)
)

账号		自动登录	找回密码
密码			立即注册

[编程申请] 求个CAD插件，能对标注求和

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

评分

[编程申请] 求个CAD插件，能对标注 求和

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

评分

[编程申请] 求个CAD插件，能对标注求和