求将所选对象的标注样式置为当前

freefeng

王工能不能编一个将所选对象的标注样式置为当前的LSP程序呀？

ZZXXQQ

计划赶不上变化，回答赶不上要求。

1. ;设定所选对象的标注样式 明经 ZZXXQQ 2008.5.2,2008.5.14加换层
   
2. (defun c:tt ()
   
3. (if (and (setq s1 (entsel "\nSelect a dimension 选择尺寸 :"))
   
4.           (setq ent (entget (car s1)))
   
5.           (= (cdr (assoc 0 ent)) "DIMENSION")) (progn
   
6.   (setq dnm (cdr (assoc 3 ent)))
   
7.   (setq lnm (cdr (assoc 8 ent)))
   
8.   (command "-DIMSTYLE" "R" dnm)
   
9.   (command "layer" "s" lnm "")
   
10. ))
    
11. (princ)
    
12. )
    

;设定所选对象的标注样式 明经 ZZXXQQ 2008.5.2,2008.5.14加换层<br /> (defun c:tt ()<br /> (if (and (setq s1 (entsel "\nSelect a dimension 选择尺寸 :"))<br />           (setq ent (entget (car s1)))<br />           (= (cdr (assoc 0 ent)) "DIMENSION")) (progn<br />   (setq dnm (cdr (assoc 3 ent)))<br />   (setq lnm (cdr (assoc 8 ent)))<br />   (command "-DIMSTYLE" "R" dnm)<br />   (command "layer" "s" lnm "")<br /> ))<br /> (princ)<br /> )<br />

ZZXXQQ

1. ;设定所选对象的标注样式 明经 ZZXXQQ 2008.5.2
   
2. (defun c:tt ()
   
3. (if (and (setq s1 (entsel "\nSelect a dimension 选择尺寸 :"))
   
4.           (setq ent (entget (car s1)))
   
5.           (= (cdr (assoc 0 ent)) "DIMENSION")) (progn
   
6.   (setq dnm (cdr (assoc 3 ent)))
   
7.   (command "-DIMSTYLE" "R" dnm)
   
8. ))
   
9. (princ)
   
10. )
    

;设定所选对象的标注样式 明经 ZZXXQQ 2008.5.2<br /> (defun c:tt ()<br /> (if (and (setq s1 (entsel "\nSelect a dimension 选择尺寸 :"))<br />           (setq ent (entget (car s1)))<br />           (= (cdr (assoc 0 ent)) "DIMENSION")) (progn<br />   (setq dnm (cdr (assoc 3 ent)))<br />   (command "-DIMSTYLE" "R" dnm)<br /> ))<br /> (princ)<br /> )<br />

ljttjl

freefeng

谢谢版主，很好用，要是能加上同时自动将所选的标注的图层也置为当前就好了。

freefeng

太好了,版主真敬业,向你致敬!!

 不知道你能否帮我做一个类似3DMAX中的按颜色选择对象的LSP,希望是能先框选一个范围,然后在所选范围内再按颜色选择对象.谢谢你哦.

wyvernlan

继续看下去握..

toeastone

太好了,版主真敬业,向你致敬!!

oujun1971

太好了,版主真敬业,向你致敬!!

sinceret

cad 命令filter

不仅能按颜色选择，还能按其他特性选。

看cad帮助