查看: 1535|回复: 12
UID7304749主题帖子精华0积分2292阅读权限50通道币0 个威望0 明经币0 个金钱892 个贡献79 激情1184 注册时间最后登录在线时间279 小时分享
金牌会员, 积分 2292, 距离下一级还需 2708 积分
帖子精华0通道币0 个明经币0 个
在同一图纸内，点击一段文字，即跳转至与其内容相同的另一段文字处，如点击&7APEsp&,就跳转至同一图纸的另一个&7APEsp&那里，先谢过各位赏脸看帖的大神了
UID97616主题帖子精华2积分45185阅读权限150通道币0 个威望4 明经币1294 个金钱1691 个贡献5532 激情25561 注册时间最后登录在线时间1215 小时分享
帖子精华2通道币0 个明经币1294 个
游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0
UID94014主题帖子精华4积分40372阅读权限100通道币0 个威望4 明经币1345 个金钱5057 个贡献4022 激情20758 注册时间最后登录在线时间1271 小时分享
帖子精华4通道币0 个明经币1345 个
;; 跳显相同文本
(defun c:tt ()
&&(if (setq ss (ssget &:E:S& '((0 . &text&))))
& & (progn
& && &(if s2 (redraw s2 4))
& && &(setq s1 (ssname ss 0))
& && &(if (and (setq ss (ssget &X& (list '(0 . &TEXT&) (cons 1 (xyp-DXF 1 s1)))))
& & & && && &&&(&= (sslength ss) 2)
& & & && &)
& & & & (progn
& & & && &(setq s2 (ssname (ssdel s1 ss) 0))
& & & && &(redraw s2 3)
& & & && &;(command &ZOOM& &W& (xyp-9pt s2 1) (xyp-9pt s2 9))
& & & & )
& && &)
& & )
&&)
&&(princ)
)
没有最好，只有更好！e派工具箱(XCAD)QQ群下载：
UID7304749主题帖子精华0积分2292阅读权限50通道币0 个威望0 明经币0 个金钱892 个贡献79 激情1184 注册时间最后登录在线时间279 小时分享
金牌会员, 积分 2292, 距离下一级还需 2708 积分
帖子精华0通道币0 个明经币0 个
xyp1964 发表于
请问大师，能不能不放大，而是移动至其位置，亮显之类的
UID52147主题帖子精华8积分16546阅读权限95通道币0 个威望2 明经币1007 个金钱536 个贡献761 激情9053 注册时间最后登录在线时间1102 小时分享
帖子精华8通道币0 个明经币1007 个
我的仿WORD查找和替换有类似功能，源码在论坛里
UID7304749主题帖子精华0积分2292阅读权限50通道币0 个威望0 明经币0 个金钱892 个贡献79 激情1184 注册时间最后登录在线时间279 小时分享
金牌会员, 积分 2292, 距离下一级还需 2708 积分
帖子精华0通道币0 个明经币0 个
xyp1964 发表于
额，显示的是no function definition: XYP-DXF,麻烦大师看下哈
UID7304749主题帖子精华0积分2292阅读权限50通道币0 个威望0 明经币0 个金钱892 个贡献79 激情1184 注册时间最后登录在线时间279 小时分享
金牌会员, 积分 2292, 距离下一级还需 2708 积分
帖子精华0通道币0 个明经币0 个
ZZXXQQ 发表于
请问大师，能不能不放大，而是移动至其位置，亮显之类的
UID125561主题帖子精华0积分18005阅读权限70通道币0 个威望5 明经币210 个金钱5186 个贡献630 激情10365 注册时间最后登录在线时间1398 小时分享
蓝钻会员, 积分 18005, 距离下一级还需 1995 积分
帖子精华0通道币0 个明经币210 个
如果同时有多个相同，变成随机跳，不如cad直接快速选择.
UID7304749主题帖子精华0积分2292阅读权限50通道币0 个威望0 明经币0 个金钱892 个贡献79 激情1184 注册时间最后登录在线时间279 小时分享
金牌会员, 积分 2292, 距离下一级还需 2708 积分
帖子精华0通道币0 个明经币0 个
kwok 发表于
如果同时有多个相同，变成随机跳，不如cad直接快速选择.
一般就只有两个唯一对应的
UID338795主题帖子精华0积分17921阅读权限70通道币0 个威望3 明经币566 个金钱4409 个贡献437 激情9130 注册时间最后登录在线时间909 小时分享
蓝钻会员, 积分 17921, 距离下一级还需 2079 积分
帖子精华0通道币0 个明经币566 个
Z版平移亮显(defun c:tt (/ ang cen cen2 en ent k new_p3 new_p4 p1 p2 p3 p4 s1 ss txt view_pts)
(vl-load-com)
(if (and(setq s1 (entsel &\n选择文字: &))
& && && &(setq ent (entget(car s1)))
& && && &(= (cdr(assoc 0 ent)) &TEXT&))
& &(progn
& &&&(setq txt (cdr(assoc 1 ent)))
& &&&(if (&(sslength(setq ss (ssget &X& (list '(0 . &TEXT&) (cons 1 txt))))) 1)
& && & (progn
& & & &&&(setvar 'cmdecho 0)
& & & &&&(ssdel (car s1) ss)
& & & &&&(while (&(sslength ss) 0)
& & & && & (setq en (ssname ss 0))
& & & && & (vla-getboundingbox (vlax-ename-&vla-object en) 'p1 'p2)
& & & && & (setq p1 (vlax-safearray-&list p1) p2 (vlax-safearray-&list p2))
& & & && & (setq cen(mapcar '(lambda(x y)(*(+ x y) 0.5)) p1 p2))
& & & && & (setq view_pts(zj-get-scr-coods))
& & & && & (setq p3(car view_pts) p4 (cadr view_pts))
& & & && & (setq cen2 (mapcar '(lambda(x y)(*(+ x y) 0.5)) p3 p4))
& & & && & (setq ang(angle p3 p4))
& & & && & (setq new_p3(polar cen ang (distance cen2 p3)))
& & & && & (setq new_p4(polar cen ang (* -1 (distance cen2 p3))))
& & & && & (command &_.ZOOM& &W& new_p3 new_p4)
& & & && & (sssetfirst nil (ssadd en))
& & & && & (if(/= (sslength ss) 1)(setq k (getpoint&\r下一个:& &&&&))(princ&\n完成!&))
& & & && & (ssdel en ss)
& & & && & )
& & & &&&(setvar 'cmdecho 1)
& & & &&&)
& && & )
& &&&)
& &)
(princ)
)
;;;返回绘图区左下角与右上角
(defun zj-get-scr-coods (/ half_h half_w pt_cen lst ptx pty)
& &(setq pt_cen (trans (GETVAR &VIEWCTR&) 1 2)
& &ptx (car pt_cen)
& &pty (cadr pt_cen)
& && &half_h (* 0.5 (GETVAR &VIEWSIZE&))
& &half_w (* half_h (/ (car (GETVAR &SCREENSIZE&)) (cadr (GETVAR &SCREENSIZE&))))
& &)
&&(LIST (LIST (- ptx half_w) (- pty half_h)) (LIST (+ ptx half_w) (+ pty half_h)))
)
empty your mind...
be formless, shapeless.
like water...
you put water into a bottle it becomes to bottle
you put water into a teapot it becomes to teapot
water can flow,
or can crash...
be water my friend..
论坛年度贡献勋章
论坛年度贡献勋章
图书贡献一级勋章
图书贡献一级勋章
& 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途
Powered by查看: 2686|回复: 8
UID7300059主题帖子精华0积分706阅读权限30通道币0 个威望0 明经币5 个金钱8 个贡献100 激情518 注册时间最后登录在线时间48 小时分享
中级会员, 积分 706, 距离下一级还需 294 积分
帖子精华0通道币0 个明经币5 个
如上图，用“ssget”框选上图所有的图形，不知道有没有什么办法让程序首先处理最外面红色的多段线，然后在处理里面的多段线啊？？？？
本帖子中包含更多资源
才可以下载或查看，没有帐号？
UID376881主题帖子精华4积分33262阅读权限80通道币0 个威望2 明经币607 个金钱847 个贡献1983 激情24137 注册时间最后登录在线时间2787 小时分享
带式输送机设计
帖子精华4通道币0 个明经币607 个
ssget没有办法，只有用程序解决。
今天用了一下正版PCCAD的局部放大，同G版的相比，还是稍逊风骚！粗糙度同风版的相比，略输文采 。数风流人物，当属高飞
UID344850主题帖子精华0积分6501阅读权限60通道币0 个威望0 明经币272 个金钱31 个贡献225 激情4485 注册时间最后登录在线时间236 小时分享
钻石会员, 积分 6501, 距离下一级还需 8499 积分
帖子精华0通道币0 个明经币272 个
找规律用选择集排序，或者选择的时候手动选先后。
本论坛有许多选择集排序的例子。
UID202795主题帖子精华0积分24320阅读权限80通道币0 个威望0 明经币609 个金钱8030 个贡献627 激情11155 注册时间最后登录在线时间930 小时分享
帖子精华0通道币0 个明经币609 个
本帖最后由 llsheng_73 于
09:58 编辑
如果只是象上边的图那样可以把选择集按面积从大到小排序后进行处理
也可以根据后边的具体处理办法考虑要不要在第一次SSGET框选时过滤到里边的白线(如果它们的图层或者颜色与红线可以区分的话很容易过滤)，这样先过滤了的话就不用排序了，处理每一根红线时再用红线的坐标进行ssget“wp”去选择里边的白线来进行处理
当然究竟怎么弄要根据后续的处理方式来决定
UID338795主题帖子精华0积分17921阅读权限70通道币0 个威望3 明经币566 个金钱4409 个贡献437 激情9130 注册时间最后登录在线时间909 小时分享
蓝钻会员, 积分 17921, 距离下一级还需 2079 积分
帖子精华0通道币0 个明经币566 个
llsheng_73 发表于
如果只是象上边的图那样可以把选择集按面积从大到小排序后进行处理
楼主的意图是计算红色线，再处理红色线内的白色线，完成后继续处理红色线，处理红色线的白色线。。。。所以，简单的面积计算排序不合适，理论上说还得判断多边形位置关系。
empty your mind...
be formless, shapeless.
like water...
you put water into a bottle it becomes to bottle
you put water into a teapot it becomes to teapot
water can flow,
or can crash...
be water my friend..
UID202795主题帖子精华0积分24320阅读权限80通道币0 个威望0 明经币609 个金钱8030 个贡献627 激情11155 注册时间最后登录在线时间930 小时分享
帖子精华0通道币0 个明经币609 个
本帖最后由 llsheng_73 于
10:41 编辑
(defun SstoEs(ss / a en lst)
&&(if ss(progn(setq a -1)
& && && &(while(setq en(ssname ss(setq a(1+ a))))
& && && &&&(setq lst(cons en lst)))))
(defun Plinexy(e / p a b n ob q et d d1 en et) ;;多线段节点坐标(滤掉了多余点，未处理假闭合)
& &(setq a(entget e)ob(vlax-ename-&vla-object e)et(cdr(assoc 0 a))n 0 p nil d nil)
& &(cond((=&LWPOLYLINE&et)
& && && &(repeat(length a)(setq b (nth n a) n (+ n 1))
& && && &&&(if (= 10 (car b))(progn
& && && && && && && && && && & (setq q(list (cadr b) (caddr b))d1(vlax-curve-getDistAtPoint ob q))
& && && && && && && && && && & (if p (if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))
& && && && && && && && && && && &(setq p (list q))))
& && && && & )))
& && &&&((=&POLYLINE&et)
& && && &(SETQ EN (ENTGET (SETQ E (ENTNEXT E))))
& && && &(WHILE (/= (CDR (ASSOC 0 EN)) &SEQEND&)
& && && &&&(SETQ q (CDR (ASSOC 10 EN))d1(vlax-curve-getDistAtPoint ob q)q(reverse(cdr(reverse q))))
& && && &&&(if p(if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))
& && && && & (setq p (list q)))
& && && &&&(SETQ EN (ENTGET (SETQ E (ENTNEXT E)))))
& && && &(setq p(reverse p))
& && && &))
(setq ss(sstoes(ssget'((0 . &*lyline&)(-4 . &&OR&)(70 . 1)(70 . 129)(-4 . &OR&&))))m(length ss)n 0;;;其实这里可以加上过滤去掉白线
& && &ss(vl-sort ss'(lambda(x y)(&(vla-get-area(vlax-ename-&vla-object x))(vla-get-area(vlax-ename-&vla-object y))))))
(while(& n m)
&&(setq e(nth n m)n(1+ n)
& && &&&s1(sstoes(ssget&wp&(plinexy e)'((0 . &*lyline&)(-4 . &&OR&)(70 . 1)(70 . 129)(-4 . &OR&&)))))
&&;;添加对红线的处理;;
&&(foreach e1 s1
& & (setq ss(vl-remove e1 ss)m(1- m))
& & ;;添加对白线的处理;;
总评分:&明经币 + 1&
UID338795主题帖子精华0积分17921阅读权限70通道币0 个威望3 明经币566 个金钱4409 个贡献437 激情9130 注册时间最后登录在线时间909 小时分享
蓝钻会员, 积分 17921, 距离下一级还需 2079 积分
帖子精华0通道币0 个明经币566 个
我来个慢的。;;;******************************************************************************
;;; No.51 判断点是否在多边形内(狂刀程序)
;;;xPt是要判断的点坐标(x y z ), Points是多边形顶点列表((x1 y1 z1) (x2 y2 z2)...)
;;;******************************************************************************
;;; 测试 (ISPTINPM '(2 1) '((0 0)(10 0)(10 10)))
(defun ISPTINPM (XPT POINTS)
(equal
pi
(abs
(apply
'+
(mapcar
'(lambda (X Y)
(rem (- (angle XPT X) (angle XPT Y)) pi)
)
(reverse (cdr (reverse (cons (last POINTS) POINTS)))
)
POINTS
)
)
)
1e-6
) ;end_equal
)
;;返回多段线顶点表
(defun vertexs (ename / plist pp n)& && &&&
&&(setq obj (vlax-ename-&vla-object ename))
&&(setq plist (vlax-safearray-&list
&&(vlax-variant-value
& & (vla-get-coordinates obj))))
&&(setq n 0)
&&(repeat (/ (length plist) 2)
& & (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))
& & (setq n (+ n 2))
&&)
&&pp
)
(defun combination (lst m);组合函数
&&(cond& && &&&((zerop m) '(()))
& && &&&((null lst) '())
& && &&&(T
& && && &(append (mapcar '(lambda (y) (cons (car lst) y))
& && && && && && && && & (combination (cdr lst) (- m 1))
& && && && && &&&)
& && && && && &&&(combination (cdr lst) m)
& && && &)
& && &&&)
&&)
)
;主程序
(defun c:tt(/ COM_LST EN ENLST1 ENLST2 ENT1 ENT2 EN_LST SS SS_LST
& & & && &&&CENPTS CENT1 CENT2 NEW_LST OVERLST SK_NUM1 SS2
& & & && &&&EN2 SS_NEW S_LST2 X
& & & && &&&)
&&(vl-load-com)
&&(if (setq ss(ssget'((0 . &lwpolyline&))))
& & (progn
& && &(setq ss_lst '());转选择集为表
& && &(while (setq en(ssname ss 0))
& & & & (setq ss_lst(cons en ss_lst))
& & & & (setq ss(ssdel en ss))
& & & & )
& && &(setq ss_lst(reverse ss_lst))
& && &(if(& (length ss_lst) 1)
& & & & (setq com_lst(combination ss_lst 2)));组合表
& && &(if com_lst
& & & & (progn
& & & && &(setq new_lst '());判断外框
& & & && &(while(setq en_lst(car com_lst))
& & & && &(setq ent1(car en_lst)
& & & & & & & & ent2(cadr en_lst)
& & & & & & & & )
& & & && &(setq enlst1(vertexs ent1)
& & & & & & & & enlst2(vertexs ent2)
& & & & & & & & )
& & & && &(cond
& & & && &&&((ISPTINPM (car enlst1) enlst2);只取一点判断
& & & && && &;(princ &\nA&)
& & & && && &;(vla-put-color (vlax-ename-&vla-object ent2) 6)
& & & && && &(setq new_lst(cons ent2 new_lst))
& & & && && &)
& & & && &&&((ISPTINPM (car enlst2) enlst1)
& & & && && &;(princ &\nB&)
& & & && && &;(vla-put-color(vlax-ename-&vla-object ent1) 6)
& & & && && &(setq new_lst(cons ent1 new_lst))
& & & && && &)
& & & && &&&;(T (princ&\nC&))
& & & && &&&)
& & & && &&&(setq com_lst(cdr com_lst))
& & & && &&&)
& & & && &)
& & & & )& && &
& && &(if (and new_lst (& (length new_lst) 0 ))
& & & & (progn
& & & && &(setq ss_new(ssadd))
& & & && &(mapcar'(lambda (x) (setq ss_new(ssadd x ss_new))) new_lst)
& & & && &(setq s_lst2 '());转选择集为表
& && &(while (setq en2(ssname ss_new 0))
& & & & (setq s_lst2(cons en2 s_lst2))
& & & & (setq ss_new(ssdel en2 ss_new))
& & & & )
& & & && &(setq new_lst (reverse s_lst2))
& & & && &(setq sk_num1 1 overlst '());处理外框并选择内部图元
& & & && &(while (setq cent1(car new_lst))
& & & && &&&(setq overlst(cons (list&&sk_num1 (setq cenpts(vertexs cent1))) overlst))
& & & && &&&(vl-cmdf &_.zoom& &o& cent1 &&);缩放视口 &&有的版本可能不行
& & & && &&&(if (setq ss2(ssget &_wp& cenpts '((0 . &lwpolyline&))))
& & & && && & (progn
& & & & & & & & (while (setq cent2(ssname ss2 0))
& & & & & & & && &(setq overlst(cons (list&&sk_num1 (vertexs cent2)) overlst))
& & & & & & & && &(setq ss2 (ssdel cent2 ss2))
& & & & & & & && &)
& & & & & & & & )
& & & && && & )
& & & && &&&(vl-cmdf &_.zoom& &p&);恢复视口
& & & && &&&(setq new_lst(cdr new_lst)
& & & & & & & && &sk_num1 (1+ sk_num1))
& & & && &&&)
& & & && &(setq overlst(reverse overlst))
& & & && &)
& & & & )
& && &(princ overlst)
& && &;(princ new_lst)
& && &)
& & )
&&(princ)
&&)
;;;(defun c:tt() ;狂刀的点在多边形内判断测试 对有弧线的pl线无效 点在线上可能不准确
;;;&&(setq p1(getpoint))
;;;&&(setq en(car(entsel)))
;;;&&(setq lst (vertexs en))
;;;&&(ISPTINPM p1 lst)
;;;&&)
;;;
;;;((1 ((920.438 421.839) (.839) (.163) (.573)
;;;(.573) (985.415 346.679) (935.257 373.441) (911.888 402.48))) (1
;;;((.269) (.104) (.506) (.22)
;;;(.347) (.015))) (1 ((955.18 402.184) (981.172 386.605)
;;;(.637) (.806) (.774) (.774)
;;;(979.972 409.774))) (2 ((.255) (.255) (.579)
;;;(.989) (.989) (.095) (.857)
;;;(.896))) (2 ((.685) (.52) (.923)
;;;(.636) (.763) (.431))) (2 ((.6)
;;;(.021) (.053) (.222) (.19) (1196.6
;;;522.19) (.19))))
empty your mind...
be formless, shapeless.
like water...
you put water into a bottle it becomes to bottle
you put water into a teapot it becomes to teapot
water can flow,
or can crash...
be water my friend..
UID7300059主题帖子精华0积分706阅读权限30通道币0 个威望0 明经币5 个金钱8 个贡献100 激情518 注册时间最后登录在线时间48 小时分享
中级会员, 积分 706, 距离下一级还需 294 积分
帖子精华0通道币0 个明经币5 个
llsheng_73 发表于
(defun SstoEs(ss / a en lst)
&&(if ss(progn(setq a -1)
& && && &(while(setq en(ssname ss(setq a(1+ ...
谢谢大大解答！受益匪浅！
UID7300059主题帖子精华0积分706阅读权限30通道币0 个威望0 明经币5 个金钱8 个贡献100 激情518 注册时间最后登录在线时间48 小时分享
中级会员, 积分 706, 距离下一级还需 294 积分
帖子精华0通道币0 个明经币5 个
edata 发表于
我来个慢的。
谢谢大神解答，谢谢了！
& 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途
Powered by查看: 6182|回复: 10
UID352550主题帖子精华0积分425阅读权限20通道币0 个威望0 明经币0 个金钱85 个贡献77 激情245 注册时间最后登录在线时间13 小时分享
注册会员, 积分 425, 距离下一级还需 75 积分
帖子精华0通道币0 个明经币0 个
我想创建一个选择集选出所有的转角标注，但是用类型为RotatedDimension选不出来。那这个转角标注的类型名是啥呢？另外每种对象的类型名在哪里可以查到呢。一般line和text、mtext都可以猜出来，但是像转角标注、对齐标注之类的就猜不出来了。
UID7302502主题帖子精华0积分4586阅读权限50通道币0 个威望0 明经币3 个金钱40 个贡献82 激情4267 注册时间最后登录在线时间451 小时分享
金牌会员, 积分 4586, 距离下一级还需 414 积分
帖子精华0通道币0 个明经币3 个
(car (assoc 0 (entget (car (entsel))))) 就是对象类型了
UID236504主题帖子精华0积分1319阅读权限40通道币0 个威望0 明经币17 个金钱12 个贡献100 激情1030 注册时间最后登录在线时间94 小时分享
高级会员, 积分 1319, 距离下一级还需 681 积分
帖子精华0通道币0 个明经币17 个
转角标注，实际就是线性标注，因可水平可垂直可旋转所以叫转角标注，在组码70中表明。
& & 标注类型：值 0-6 是整数值，表示标注类型。值 32、64 和 128 是添加到整数值的位值（在 R13 及以后的版本中始终设置为 32）
& && &0 = 旋转、水平或垂直；
& && &1 = 对齐
& && &2 = 角度；
& && &3 = 直径；
& && &4 = 半径
& && &5 = 三点角度；
& && &6 = 坐标
& &&&32 = 表示块参照（组码 2）仅由该标注参照。
& &&&64 = 坐标类型。这是一个位值（位 7），仅与整数值 6 一起使用。如果设置该值，则坐标为 X 类型；如果不设置，则坐标为 Y 类型。
& & 128 = 这是一个添加到其他组 70 值的位值（位 8）（如果标注文字已放置到用户定义的位置，而不是放置到默认位置）
简单点说，判断一个转角标注只需提取70组码，设enlst为entget标注图元名，若(cdr (assoc 70 enlst)) 32)或(cdr (assoc 70 enlst)) 64)——按上述说法R13版本以后只需为32即可（即32+0）——(70 . 32)
UID352550主题帖子精华0积分425阅读权限20通道币0 个威望0 明经币0 个金钱85 个贡献77 激情245 注册时间最后登录在线时间13 小时分享
注册会员, 积分 425, 距离下一级还需 75 积分
帖子精华0通道币0 个明经币0 个
在VisualLisp编辑器里面我用（princ (car (assoc 0 (entget (car (entsel)))))），然后选择转角标注，返回1。我是用VB写程序，对lisp不太懂，帮人帮到底，我应该怎么操作得到这个转角标注的图元名呢？谢谢先
UID352550主题帖子精华0积分425阅读权限20通道币0 个威望0 明经币0 个金钱85 个贡献77 激情245 注册时间最后登录在线时间13 小时分享
注册会员, 积分 425, 距离下一级还需 75 积分
帖子精华0通道币0 个明经币0 个
sutai 发表于
转角标注，实际就是线性标注，因可水平可垂直可旋转所以叫转角标注，在组码70中表明。
& & 标注类 ...
根据你的提示，我按组码70，值按32确实可以选出了转角标注。对齐标注怎么选出呢？我用VB，对lisp非常不熟，谢谢帮忙
UID352550主题帖子精华0积分425阅读权限20通道币0 个威望0 明经币0 个金钱85 个贡献77 激情245 注册时间最后登录在线时间13 小时分享
注册会员, 积分 425, 距离下一级还需 75 积分
帖子精华0通道币0 个明经币0 个
搞懂了，谢谢楼上两位
UID236504主题帖子精华0积分1319阅读权限40通道币0 个威望0 明经币17 个金钱12 个贡献100 激情1030 注册时间最后登录在线时间94 小时分享
高级会员, 积分 1319, 距离下一级还需 681 积分
帖子精华0通道币0 个明经币17 个
imoses 发表于
搞懂了，谢谢楼上两位
聪明人，我满头大汗地赶来已经来不及了……
UID274694主题帖子精华0积分14852阅读权限60通道币0 个威望0 明经币1572 个金钱80 个贡献311 激情6223 注册时间最后登录在线时间663 小时分享
钻石会员, 积分 14852, 距离下一级还需 148 积分
帖子精华0通道币0 个明经币1572 个
初步过滤出选择集后用用子类标记，即组码100检查是否有AcDbRotatedDimension标记
UID94014主题帖子精华4积分40372阅读权限100通道币0 个威望4 明经币1345 个金钱5057 个贡献4022 激情20758 注册时间最后登录在线时间1271 小时分享
帖子精华4通道币0 个明经币1345 个
(setq ss (ssget '((0 . &DIMENSION&)
& && && && && && &(100 . &AcDbDimension&)
& && && && && && &(100 . &AcDbAlignedDimension&)
& && && && && && &(100 . &AcDbRotatedDimension&)
& && && && && &&&)
& && && &)
)
没有最好，只有更好！e派工具箱(XCAD)QQ群下载：
UID274694主题帖子精华0积分14852阅读权限60通道币0 个威望0 明经币1572 个金钱80 个贡献311 激情6223 注册时间最后登录在线时间663 小时分享
钻石会员, 积分 14852, 距离下一级还需 148 积分
帖子精华0通道币0 个明经币1572 个
xyp1964 发表于
试了 转角标注和对齐标注一起被选中 ，好像对100组码内容直接过滤有漏洞
AutoCAD2008 32bit
& 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途
Powered by查看: 2654|回复: 13
听众数收听数最后登录注册时间主题精华0积分27帖子
技术员, 积分 27, 距离下一级还需 23 积分
1.CAD空格键常用小技巧
选中图型基点
一下空格-----移动
二下空格-----旋转
三下空格-----缩放
四下空格-----镜相
2.比如我有20个闭合的独立区域，要算它们的总面积。我用area命令累加。但是
这样很不方便，要点n多次，多的话还容易弄错。有什么比较简便的方法（比如一
次选取所有的区域进行累加）？
;;; AREAM.LSP
;;; Function: Calculates the total area of selected objects
(defun c:aream (/ olderr oldcmdecho errexit undox restore ss1 nr en
(defun errexit (s)
(defun undox ()
(command &._undo& &_E&)
(setvar &cmdecho& oldcmdecho)
(setq *error* olderr)
(setq olderr *error*
restore undox
*error* errexit
(setq oldcmdecho (getvar &cmdecho&))
(setvar &cmdecho& 0)
(command &._UNDO& &_BE&)
(if (setq ss1 (ssget ’((-4 . &&OR&)
(0 . &POLYLINE&)
(0 . &LWPOLYLINE&)
(0 . &CIRCLE&)
(0 . &ELLIPSE&)
(0 . &SPLINE&)
(0 . &REGION&)
(-4 . &OR&&)
(setq nr 0)
(setq tot_area 0.0)
(setq en (ssname ss1 nr))
(command &._area& &_O& en)
(setq tot_area (+ tot_area (getvar &area&)))
(setq nr (1+ nr))
(setq en (ssname ss1 nr))
(princ &\nTotal Area = &)
(princ tot_area)
把上面的英文部分用记事本存成aream.lsp,并把此文件放到cad的support目录下,
用cad命令appload加载他,cad中打入aream,和cad的命令一样用
如果算出来的面积是1.5就是,既小数点向后移10位
3.WORD、EXCEL图形或表格复制到CAD的步骤1、选择需要复制的图形或表格，用“
复制”工具进行复制；
2、切换到CAD程序，然后选择“编辑”—“选择性粘贴”；
3、选择粘贴为“AutoCAD图元”，这样做的目的是粘贴后可以在CAD里编辑；
4、选择粘贴插入点
5、粘贴后的线条或文字可以在CAD直接编辑
4.CAD图形或表格复制到WORD、EXCEL的步骤
1、更改CAD系统变量WMFBKGND值为OFF，使CAD背景为透明，如果想让复制的图形
是黑白的，可以在图层管理器里面把图层颜色改为白色（7号）；
2、选择需要复制的图形，用“复制”工具进行复制；
3、切换到WORD或EXCEL，激活需要粘贴的区域，然后选择“编辑”—“粘贴”；
4,利用“图片裁剪”把图形空白区域剪掉，然后用拖对角的方法把图形缩放到合
CAD到Office补充几点：说是CAD到Office，是因为CAD图粘贴到Word、Excel、
PowerPoint、Publisher都可以用这个方法。1、线条宽度——建议采用多段线设
定线条宽度，因为线宽粘贴后宽度只有宽窄两种，不美观；2、比例问题——如果
有可能，尽量采用1:1绘制，这里的1:1是打印比例，也就是需要打印为10mm的，
就绘制成10个图形单位，这样既可以控制出图比例，又可以控制线条宽度；3、背
景颜色——2002可以在布局空间（一般布局空间的背景是白色）复制，2004、
直接复制就行了，无需修改背景颜色。
5.请问如何沿着一条曲线，拆线，斜线来陈列物体？
1.把要陈列的物体成块命好名字，(Command: block )
2，用等分工具(Command: divide)等分曲线，下面提示会告诉你是输入要等分的
线段数还是插入块（Enter the number of segments or [Block]: b），输入b点
3，( Enter name of block to insert:)输入你刚才命名的块的名字，
4，（Align block with object? [Yes/No] &Y&: ）直接点回车，默认对齐！
5，（Enter the number of segments: 6）输入要陈列物体的个数，点回车！
另外，如果沿斜线陈列有直接的命令，用上面的方法加裁命令就行了！
cm.lsp沿指定方向多重复制对象，可以指定对象间距或数量。
(defun C:CM ()
(setq A nil)
(setq OM (getvar &OSMODE&))
(setvar &OSMODE& 33)
(setq PNT1 (getpoint &\n拾取第一点： &))
(setq PNT2 (getpoint &\n拾取第二点： & PNT1))(terpri)
(initget 1 &M E N&)
(prompt &\n选择如下之一： &)
(setq CTYPE
(getkword &\n(M)最大间距 (E)精确间距 (N)数量： &))
(if (= CTYPE &M&)
(setq SP (getdist &\n最大对象间距： &)))
(if (= CTYPE &E&)
(setq SP (getdist &\n精确对象间距： &)))
(if (= CTYPE &N&)
(setq SP (getreal &\n对象数量： &)))
(setq DIST (distance PNT1 PNT2))
(setq ANG (angle PNT1 PNT2))
(setq TEMP1 (/ DIST SP))
(setq TEMP2 (fix (/ DIST SP)))
(setq INC1 SP)
(setq INC2 (/ DIST (+ 1 (fix (/ DIST SP)))))
(setq INC3 (/ DIST (- SP 1)))
(if (= TEMP1 TEMP2) (setq INC INC1) (setq INC INC2))
(if (= CTYPE &E&) (setq INC INC1) (setq INC INC))
(if (= CTYPE &N&) (setq INC INC3) (setq INC INC))
(setq TMS (FIX (+ 0.00001 (/ DIST INC))))
(setvar &OSMODE& 0)
(setq A (ssget))
(setq INCR 0)
(repeat TMS
(setq INCR (+ INCR INC))
(setq NEWPT (polar PNT1 ANG INCR))
(command &copy& A && PNT1 NEWPT)
(setvar &OSMODE& OM)
(setq A nil)
);end cm.lsp
把上面的英文部分用记事本存成cm.lsp,并把此文件放到cad的support目录下,用
cad命令appload加载他,cad中打入cm,和cad的命令一样用
6，怎样把物体整体压扁或者整体拉长？,scale uniformly
1，把要压扁的物体成块，
2，用插入命令insert,在跳出的对话框里进行设置，在scale下面设置X与Y的比例
，默认值都是1
注意：在成块的时候不能选择“uniform scale&!
1.【CTrl+N无效时之解决办法】
CTRL+N新建命令
但有时候CTRL+N则出现选择面板
这时只需到OP选项里调下设置
OP（选项）------系统-------右侧有一个启动（A显示启动对话框B不显示启动对
选择A则新建命令有效，反则无效
2.【Ctrl键无效之解决办法】
比如CTRL+C（复制），，CTRL+V（粘贴）CTRL+A（全选）等一系列和CTRL键有关
的命令都会失效
这时你只需到OP选项里调一下
操作：OP（选项）-----用户系统配置------WINDOWS标准加速键（打上勾）
WINDOWS 标准加速键打上勾后，和CTRL键有关的命令则有效，反之失灵
听众数收听数最后登录注册时间主题精华0积分25帖子
技术员, 积分 25, 距离下一级还需 25 积分
　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶顶　　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶　顶　顶顶　顶顶　顶顶　顶
听众数收听数自我介绍新浪科技五星级软件
新浪科技五星级软件最后登录注册时间主题精华2积分1017帖子
四星工程师, 积分 1017, 距离下一级还需 83 积分
土木币3619
一下空格-----移动
二下空格-----旋转
三下空格-----缩放
四下空格-----镜相
有用，但常记不住。
楼主怎么成负分了，是得罪了那位老大吗？
听众数收听数最后登录注册时间主题精华0积分25帖子
技术员, 积分 25, 距离下一级还需 25 积分
好有意思的技巧，cad还能这样用
希望楼主继续挖掘更多这种技巧
与大家分享，，谢谢！！！
听众数收听数最后登录注册时间主题精华0积分25帖子
技术员, 积分 25, 距离下一级还需 25 积分
积分不够可不可以发到我的邮箱吗？
听众数收听数自我介绍
最后登录注册时间主题精华0积分25帖子
技术员, 积分 25, 距离下一级还需 25 积分
不错，一下解决了我两个问题
听众数收听数最后登录注册时间主题精华0积分25帖子
技术员, 积分 25, 距离下一级还需 25 积分
恩 确实不错啊.呵呵 谢谢楼住啊
长见识了啊
听众数收听数自我介绍山东:福莱一点通.广联达.蓝博各种工程软件
超低价 电话：
最后登录注册时间主题精华0积分25帖子
技术员, 积分 25, 距离下一级还需 25 积分
谢楼主！！！！
听众数收听数最后登录注册时间主题精华0积分25帖子
技术员, 积分 25, 距离下一级还需 25 积分
谢楼主！！！！
听众数收听数最后登录注册时间主题精华0积分25帖子
技术员, 积分 25, 距离下一级还需 25 积分
兄弟你的这个太有趣了,我也去试一下,先在这里谢谢啦
8-1(商易宝)
8-2(英才网)
8-3(媒体广告)}