图框属性编号源码和经验分享

jixiezhang · 发表于 2021-8-8 16:59

试试，看看好用不好用

stonedesign · 发表于 2021-8-17 20:31

下载的源码2.0，没用，op也下载了，没用

stonedesign · 发表于 2021-10-22 10:40

我再CAD2022版本上运行出现：命令: NUMATT 未知命令“OPENDCL”。按 F1 查看帮助。
; 错误: no function definition: dcl_project_import

飒路紫 · 发表于 2021-10-25 09:22

stonedesign 发表于 2021-10-22 10:40
我再CAD2022版本上运行出现：命令: NUMATT 未知命令“OPENDCL”。按 F1 查看帮助。
; 错误: no function ...

注意看帖，需要支持的文件！

stonedesign · 发表于 2021-10-25 21:57

你这个帖子没看到另外一个帖子看到了，

daziduan · 发表于 2021-12-22 15:45

@飒路紫
http://bbs.mjtd.com/forum.php?mo ... &fromuid=203481
在lisp代码中
;==========================================按照不同修改类型处理文本=========================================
  (setq str1 (dcl-Control-GetText sxbh/numatt/Text));dcl中输入文本的值
;;;  (setq str2 "-")
  (setq str3 (dcl-Control-GetText sxbh/numatt/number));dcl中输入的数字
  (setq m 0)
(cond
   ((= (dcl-Control-GetValue sxbh/numatt/OptionButton5) 1);当选择递增编号
(if (= (type (read str3)) 'INT)
   (progn
      (repeat (length lst)
      (setq a (nth m lst))
      (setq data1 (entget (cdar a)))
      (setq data1_bj (assoc 1 data1))

在此处(print data1)显示如下：
((-1 . <图元名: 7ffffb0f670>) (0 . "INSERT") (330 . <图元名: 7ffffb0c820>) (5 . "407") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbBlockReference") (66 . 1) (2 . "tu1") (10 320398.0 -161402.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))

(setq data1_bj (assoc 1 data1))不能正确获得“data_bj”没有“1”值

是不是此2.0版本的获取tag的方式不合适？  请指教！

etoxp · 发表于 2021-12-22 21:11

也可以用PL线来给定顺序

流浪的军刀 · 发表于 2021-12-31 10:52

楼主好人，资源共享

yxl88168 · 发表于 2022-6-1 19:50

这个是真的非常不错，谢谢了

huxu823 · 发表于 2022-6-1 22:13

程序的命令是什么？

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

[源码] 图框属性编号源码和经验分享

本帖子中包含更多资源