注册 登录
明经CAD社区 返回首页

caoyin的个人空间 http://www.mjtd.com/?213172 [收藏] [复制] [分享] [RSS]

日志

设置 Qleader 命令“引线设置”对话框的相关参数

热度 13已有 2012 次阅读2011-5-6 21:06 |个人分类:LISP|系统分类:开发|

 
;;设置 Qleader 命令“引线设置”对话框的相关参数
;;注:引线的箭头跟DIMSTYLE使用同一设置,可以直接修改DIMLDRBLK系统变量
;;2011.5.5 by caoyin
(defun C:TT (/ DICEN)
  (setq DICEN (namedobjdict))
  (if (dictsearch DICEN "AcadDim")
    (dictremove DICEN "AcadDim")
  )
  (dictadd DICEN
           "AcadDim"
            (entmakex '((0 . "XRECORD")
                        (100 . "AcDbXrecord")
                        (280 . 1)
                        (90 . 990106)
                        (3 . "");;-----引线和箭头-〉箭头[用户箭头的缺省块名,""则表示未设置]
                        (60 . 0);;-----注释-〉注释类型[0,1,2,3,4]
                        (61 . 0);;-----注释-〉重复使用注释[0,1,2]
                        (65 . 0);;-----引线和箭头-〉引线[0,1]
                        (66 . 0);;-----引线和箭头-〉点数-〉无限制[0,1]
                        (67 . 3);;-----引线和箭头-〉点数[任意正整数]
                        (68 . 1);;-----注释-〉多行文字选项-〉提示输入宽度[0,1]
                        (69 . 0);;-----注释-〉多行文字选项-〉始终左对齐[0,1]
                        (70 . 0);;-----引线和箭头-〉角度约束->第一段[0,1,2,3,4,5]
                        (71 . 0);;-----引线和箭头-〉角度约束->第二段[0,1,2,3,4,5]
                        (72 . 0);;-----注释-〉多行文字选项-〉文字边框[0,1]
                        (40 . 0.0)
                        (170 . 2);;----控制“引线设置”对话框的缺省选项卡[0,1,2]
                     ;; (340 . 图元名)
                     ;;-----当DXF组码60的值为3,且已经设定了块参照的块名,则340组码才会出现
                     ;;-----格式为(340 . 上次使用块参照作为注释对象,实际插入的块实例的图元名)
                      )
              )
    )
)
 

路过

雷人
9

握手
3

鲜花

鸡蛋

刚表态过的朋友 (12 人)

发表评论 评论 (3 个评论)

回复 mgame168 2011-7-2 23:41
Thx To Share~
回复 wuzheng80425 2015-7-14 15:56
学习一下
回复 oistre 2020-6-11 16:51
没明白你的意思,能说具体一点吗?

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-5-11 05:07 , Processed in 0.096755 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部