明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
置顶 ·分享 有仪CAD二次开发,插件定制.
鱼与熊掌 2015-1-2 09:57
淘宝: cxcad.taobao.com CAD二次开发: youyicad.com 欢迎光临我的网站和淘宝店. 联系我的QQ:775452144
742 次阅读|2 个评论
分享 ;矩形立正/.
鱼与熊掌 2015-1-8 17:13
;矩形立正/.
;矩形立正/ (defun c:tt() (setq ss(ssget)) (setq ss(cx-ss2en ss)) (foreach x ss (setq pts (get-rec-x2pt (cx-db x)t)) (setq ang(angle(car pts)(cadr pts))) (command "rotate" x "" (car pts) "r" (car pts) (cadr pts) "0") ...
836 次阅读|1 个评论 热度 3
分享 统计重复.
鱼与熊掌 2014-12-23 10:53
;;;统计表中重复项个数byXran (defunXr:sumlist(l/itemresultx) (foreachxl (if (setqitem(assocxresult)) (setqresult(subst(c ...
522 次阅读|0 个评论
分享 ssget用法.
鱼与熊掌 2014-12-22 22:32
( setq ss ( ssget ":S" ' (( 0 . "LINE" )))) ;只选取一次直线(省约回车) ( setq ss ( ssget "X" ' (( 0 . "LINE" )))) ;自动选取直线,包含冻结的直线 ( setq ss ( ssget "A" ' (( 0 . "LINE" )))) ;自动选取直线,不包含冻结的 ...
1298 次阅读|1 个评论 热度 5
分享 ~
鱼与熊掌 2014-12-21 09:21
http://qjchen.mjtd.com/?p=75
436 次阅读|0 个评论
分享 ;一个VLISP的批量处理范例
鱼与熊掌 2014-12-21 09:14
;一个VLISP的批量处理范例 ;;从这个范例可以了解VLISP批量处理图档 ;;虽然速度慢了点,但非常实用 ;;By LUCAS(龙龙仔) ;;从文件移除未使用之具名参考&nbs ...
525 次阅读|0 个评论 热度 1
分享 ;;;设置系统参数为程序需要的值 by Xran
鱼与熊掌 2014-12-19 17:06
;;;设置系统参数为程序需要的值byXran ;;;paramlst系统参数列表字符串列表 ;;;valuelst系统参数值表 (defunxr:sysparam0(paramlstvaluelst) (mapcar '(lambda(x) (set(readx ...
532 次阅读|0 个评论
分享 Attibutes
鱼与熊掌 2014-12-19 15:03
;BY Eπ. ( defun xyp-get-Attibutes ( ename/objlstx ) ( setq obj ( vlax-ename- vla-object ename ) lst&nb ...
423 次阅读|0 个评论
分享 ;;提取BLOCK REF单一属性性质
鱼与熊掌 2014-12-19 14:35
;插件定制, QQ775452144 ;,, ;http://bbs.mjtd.com/thread-109615-1-1.html ;;提取BLOCK REF单一属性性质 ;;USAGE: (GET_ATT1 "比例" "LAYER") ;;USAGE: (GET_ATT1 属性标籤 性质)  ...
577 次阅读|2 个评论 热度 1
分享 属性文字归位.
鱼与熊掌 2014-12-13 15:39
图块属性文字归位 软件作者联系方式 Email: Gu_xl@sohu.com -------------------------------------------------------------------------------- ;;;(gxl-blk-att2init ent) 图块属性还原归位 ;;;测试 (gxl-blk-att2init (car(entsel "\n选择图块"))) ( defun gxl-blk-att2init ( en ...
617 次阅读|0 个评论

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

GMT+8, 2024-5-10 12:44 , Processed in 0.086598 second(s), 13 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部