200853006的空间 - 明经CAD社区

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

现在还没有记录

200853006 2013-4-9 09:48: (defun PLConvert (PLEntName / PtsLst0 PtsLst1 MinLeng LinLeng PtsLst2 Pnt0 Pnt1 Pnt2 Pnt3 Pnt4 Pnt5) ;;获取闭合多段线所有顶点的坐标 (setq PtsLst0 (mapcar 'cdr (vl-remove-if &n ... ...

200853006 2013-4-9 08:58: 插入文件并更新已有图块定义
http://bbs.mjtd.com/thread-100770-1-1.html

669423907 2012-12-8 21:04: ;φ,M,R 智能标注（ZZXXQQ）2011.5.28 (defun c:cmr() (setq la (getvar"clayer")) ;(command "clayer" "7标注") (while (and (setq s1 (entsel "\n选择圆或圆弧 :")) (setq ent (entget (car s1))) (wcmatch (setq tn (cdr(assoc 0 ent))) "ARC,CIRCLE")) (setq pt1 (cadr s1)) (setq qztxt (if (setq qz (getint "\n个数 :")) (strcat (itoa qz) "-") "")) (if (= tn "ARC") (progn (setq r (cdr(assoc 40 ent))) (command ".LENGTHEN" (car s1) "") (if (>= (/ ... ...