(XD::Doc:createSubDimstyle)建立指定标注样式的子样式

Free-Lancer

原帖地址
http://bbs.xdcad.net/forum.php?m ... =672496&pid=3505044

1. ;;功能: 由已有标注样式建立新子标注样式
   
2. ;;参数: name ---- 父标注样式名称，nil 为当前样式
   
3. ;;      mod  ---- 子标注类型, string
   
4. ;;                $2 角度标注，$3 直径标注，
   
5. ;;                $4 半径标注，$6 坐标标注
   
6. ;;                $0 线性标注, $7 引线和公差
   
7. ;;      lst  ---  子标注样式需要修改的系统变量表，或nil
   
8. (defun XD::Doc:createSubDimstyle        (name mod lst / dims sname)
   
9.   (if (null name)
   
10.     (setq name (getvar "dimstyle"))
    
11.   )
    
12.   (setq        dims  (vla-get-dimstyles **XD::DOC**)
    
13.         sname (strcat name mod)
    
14.   )
    
15.   (if (not (tblsearch "dimstyle" sname))
    
16.     (vla-add dims sname)
    
17.   )
    
18.   (if lst
    
19.     (progn
    
20.       (mapcar '(lambda (x) (apply 'setvar x)) lst)
    
21.       (vla-copyfrom (vla-item dims sname) **XD::DOC**)
    
22.     )
    
23.   )
    
24.   (vla-put-activedimstyle **XD::DOC** (vla-item dims name))
    
25.   t
    
26. )
    

;;功能: 由已有标注样式建立新子标注样式<br /> ;;参数: name ---- 父标注样式名称，nil 为当前样式<br /> ;;      mod  ---- 子标注类型, string<br /> ;;                $2 角度标注，$3 直径标注，<br /> ;;                $4 半径标注，$6 坐标标注<br /> ;;                $0 线性标注, $7 引线和公差<br /> ;;      lst  ---  子标注样式需要修改的系统变量表，或nil<br /> (defun XD::Doc:createSubDimstyle        (name mod lst / dims sname)<br />   (if (null name)<br />     (setq name (getvar "dimstyle"))<br />   )<br />   (setq        dims  (vla-get-dimstyles **XD::DOC**)<br />         sname (strcat name mod)<br />   )<br />   (if (not (tblsearch "dimstyle" sname))<br />     (vla-add dims sname)<br />   )<br />   (if lst<br />     (progn<br />       (mapcar '(lambda (x) (apply 'setvar x)) lst)<br />       (vla-copyfrom (vla-item dims sname) **XD::DOC**)<br />     )<br />   )<br />   (vla-put-activedimstyle **XD::DOC** (vla-item dims name))<br />   t<br /> )<br />

_$ (XD::Doc:creadSubDimstyle nil "$2" nil)
T

lucas3

大师，谢谢分享 ，**XD::DOC** 这个在哪儿啊，没找到

Free-Lancer

lucas3 发表于 2014-11-20 15:23
大师，谢谢分享 ，**XD:OC** 这个在哪儿啊，没找到

xd-lisp-lib.vlx

**XD::DOC** <=> (fy:acdoc) <=> (vla-get-activedocument (vlax-get-acad-object))

lucas3

Free-Lancer 发表于 2014-11-20 15:28
xd-lisp-lib.vlx

**XD:OC**  (fy:acdoc)  (vla-get-activedocument (vlax-get-acad-object))

我其实想问这4个*号是怎么回事？ 用您的(fly:acdoc) 就不用*号了吧{:soso_e113:} ，括号还是要的是吧

newer

这个现在可以直接用  xdrx_object_clone 创建了。