替换标注样式问题

lwl450

新建标注的时候替换已经有的标注样式，已有的标注样式的参数是错的，想替换成现在的，但(defun c:GG  ()(setq DICEN (namedobjdict))

  (if (dictsearch DICEN "AcadDim")

    (dictremove DICEN "AcadDim")

  )
  (dictadd DICEN

           "AcadDim"

            (entmakex '((0 . "XRECORD")

                        (100 . "AcDbXrecord")

                        (280 . 1))
用这个删除不了已经有的，图里有这样的标注存在，删不了改不了！！！求方法或者这个判断如何设置好

WhoCanSay

输入D回车，击修改                 

lwl450

WhoCanSay 发表于 2017-9-19 21:29

你这方法达不到我想要的效果

yangjian001

自行解决的还真不容易

lwl450

yangjian001 发表于 2017-9-20 08:14

没办法啊 ，在中国很多人什么都要说钱，没钱没人帮你啊，很现实的

csharp

lwl450 发表于 2017-9-20 08:44

看 ActiveX 手册中 DimXXX 对象中的 Property，其中含有 color 的就是和颜色有关

2. 
   
3. (defun c:tt (/ p1 p2 ms p3 dm)
   
4.   (setq        ms (vla-get-modelspace
   
5.              (vla-get-activedocument (vlax-get-acad-object))
   
6.            )
   
7.   )
   
8.   (while (and (setq p1 (getpoint "\nFirst point: "))
   
9.               (setq p2 (getpoint p1 "\nSecond point: "))
   
10.               (setq p3 (getpoint p1 "\nPosition: "))
    
11.          )
    
12.     (setq dm (vla-adddimaligned
    
13.                ms
    
14.                (vlax-3d-point p1)
    
15.                (vlax-3d-point p2)
    
16.                (vlax-3d-point p3)
    
17.              )
    
18.     )
    
19.     (vla-put-dimensionlinecolor dm acred)
    
20.   )
    
21.   (princ)
    
22. )

<br /> (defun c:tt (/ p1 p2 ms p3 dm)<br />   (setq        ms (vla-get-modelspace<br />              (vla-get-activedocument (vlax-get-acad-object))<br />            )<br />   )<br />   (while (and (setq p1 (getpoint "\nFirst point: "))<br />               (setq p2 (getpoint p1 "\nSecond point: "))<br />               (setq p3 (getpoint p1 "\nPosition: "))<br />          )<br />     (setq dm (vla-adddimaligned<br />                ms<br />                (vlax-3d-point p1)<br />                (vlax-3d-point p2)<br />                (vlax-3d-point p3)<br />              )<br />     )<br />     (vla-put-dimensionlinecolor dm acred)<br />   )<br />   (princ)<br /> )

lwl450

已经有的标注样式怎样替换，好烦恼

/db_自贡黄明儒_

1. (defun C:w1 (/ D1 D2 DIMENSIONLINECOLOR LAYER OBJ1 OBJ2 STYLENAME LinearScaleFactor)
   
2.   (setq d1 (car (entsel "\n 选择一个尺寸标注:")))
   
3.   (setq obj1 (vlax-ename->vla-object d1))
   
4.   (setq DimensionLineColor (vlax-get obj1 'DimensionLineColor))
   
5.   (setq LinearScaleFactor (vlax-get obj1 'LinearScaleFactor))
   
6.   (setq Layer (vlax-get obj1 'Layer))
   
7.   (setq StyleName (vlax-get obj1 'StyleName))
   
8.   (setq d2 (car (entsel "\n 选择另一个尺寸标注:")))
   
9.   (setq obj2 (vlax-ename->vla-object d2))
   
10.   (vlax-put obj2 'DimensionLineColor DimensionLineColor)
    
11.   (vlax-put obj2 'LinearScaleFactor LinearScaleFactor)
    
12.   (vlax-put obj2 'Layer Layer)
    
13.   (vlax-put obj2 'StyleName StyleName)
    
14.   (princ)
    
15. )

(defun C:w1 (/ D1 D2 DIMENSIONLINECOLOR LAYER OBJ1 OBJ2 STYLENAME LinearScaleFactor)<br />   (setq d1 (car (entsel "\n 选择一个尺寸标注:")))<br />   (setq obj1 (vlax-ename->vla-object d1))<br />   (setq DimensionLineColor (vlax-get obj1 'DimensionLineColor))<br />   (setq LinearScaleFactor (vlax-get obj1 'LinearScaleFactor))<br />   (setq Layer (vlax-get obj1 'Layer))<br />   (setq StyleName (vlax-get obj1 'StyleName))<br />   (setq d2 (car (entsel "\n 选择另一个尺寸标注:")))<br />   (setq obj2 (vlax-ename->vla-object d2))<br />   (vlax-put obj2 'DimensionLineColor DimensionLineColor)<br />   (vlax-put obj2 'LinearScaleFactor LinearScaleFactor)<br />   (vlax-put obj2 'Layer Layer)<br />   (vlax-put obj2 'StyleName StyleName)<br />   (princ)<br /> )

lwl450

/db_自贡黄明儒_ 发表于 2017-9-21 13:31

vlax-put能新建的时候不用选取就可以替换吗？

lwl450

自己顶一下，求帮忙解决

yjch

好好学习天天向上

fangseng

(DEFUN C:MMD ()
(setq oc (car (entsel "\n选择源标注:")))
(setq ss (ssget '((0 . "Dimension"))))
(command "MATCHPROP" oc ss "")
(setq ss nil)
(princ)
)

striver

standards命令和checkstandards命令可以配置标准和检查标准。建立一个dws文件作为标准文件，现有文件的同名图层、文字样式、标注样式与标准文件中的设置不一致时，可以改为标准文件中的设置。
可以使用ADCENTER设计中心将标准文件中的图层、样式拖放到当前文件，但同名的不会自动更改设置。