社区 › AutoLISP/Visual LISP 编程技术 › 图框属性编号源码和经验分享

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

试试，看看好用不好用

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

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

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

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

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

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

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

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

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

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

@飒路紫
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=182209&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:26

也可以用PL线来给定顺序

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

楼主好人，资源共享

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

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

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

程序的命令是什么？

查看完整版本: 图框属性编号源码和经验分享