日志
- 置顶 ·分享 有仪CAD二次开发,插件定制.
- 淘宝: cxcad.taobao.com CAD二次开发: youyicad.com 欢迎光临我的网站和淘宝店. 联系我的QQ:775452144
- 分享 标注对齐命令
- ; http://bbs.mjtd.com/forum.php?mod=viewthreadtid=108799 ;标注对齐命令 tdx ;2013-12-23~24 by edata ;cad 2006 wcs/ucs 没问题 ;只支持转角标注和对齐标注 ;引线只修改第一点 (defun c:tdx(/ ANG E EN N10 N13 N14 O10 O13 O14 O42 P1 P2 SS K13 LE10 LE11 NLE10) (defun *error*_N ...
- 分享 entmod
- (defun cx-entmod(zm1 zm2 e / zm1 zm2 e) (setq e (subst (cons zm1 zm2) (assoc zm1 e) e) ) (entmod e) )
- 分享 (vla-open odbx file)的返回值是nil，但是相关对象赋值到了odbx
- (setq odbx (vla-getinterfaceobject (vlax-get-acad-object) (strcat "ObjectDBX.AxDbDocument." (itoa (atoi (getvar 'acadver))) ) ) ) (setq file (findfile "dbxtest.dwg")) (vla-open o ...
- 分享 73make
- (entmakex(cons 0 8 7 1 10 11 40 41 50 72 73) (cons"TEXT"(cond((and(TBLSEARCH"layer"(vl-princ-to-string(car Arguments)))(TBLSEARCH"style"(vl-princ-to-string(cadr Arguments)))) Arguments) ((TBLSEARCH"layer"(vl-princ-to-string(car Arguments))) ...
- 分享 获取指定图层，指定样式
- BY鱼与熊掌 CAD定制程序 QQ775452144 ;Layer Ltype Viewx Style Block Appid Ucs Dimstyle 和 Vport (defun sytc(ys / tc tc_lst) (setq tc_lst (cons (cdr(assoc 2(tblnext ys "t"))) tc_lst)) (while(setq tc(tblnext ys nil)) (setq tc_lst (cons (cdr(assoc 2 tc)) tc_lst)) ) (reverse tc_lst) ) ...