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

qixin0728

明经真是个好地方，不说问题解决的怎样。大虾们的热心着实令人钦佩。

669423907

谢谢版主！！！

daiguafan

十分感谢版主，每次有问题的时候他就出来帮忙

adc

这是其他人的
(defun c:tt (/ count dim-ent dimstyles i index)
  (vl-load-com)
  (princ (strcat "\nThe current DimStyles is:" (vla-get-Name
         (vla-get-ActiveDimStyle
            (vla-get-ActiveDocument
               (vlax-get-acad-object)
            )
         )
         ) "\n"
  )
  )
  (if (setq dim-ent (car (entsel "Pick dimension object:")))
    (progn
      (command "dimstyle" "" (vla-get-StyleName
      (vlax-ename->vla-object dim-ent)
        )
      )
      (princ (strcat "\nNow the current DimStyles is:"
       (vla-get-StyleName (vlax-ename->vla-object dim-ent))
      )
      )
    )
    (progn
      (setq DimStyles (vla-get-DimStyles (vla-get-ActiveDocument
         (vlax-get-acad-object)
      )
        )
     count (vla-get-Count DimStyles)
     i 0
      )
      (repeat count
(princ (strcat (itoa i) "-->" (vla-get-name
          (vlax-invoke-method DimStyles 'Item
         i
          )
          ) "  "
        )
)
(setq i (1+ i))
      )
      (setq index (getint "\ninput index number:"))
      (vla-put-ActiveDimStyle (vla-get-ActiveDocument
            (vlax-get-acad-object)
         ) (vlax-invoke-method DimStyles 'Item index)
      )
      (princ (strcat "Now the current DimStyles is:" (vla-get-name
           (vlax-invoke-method DimStyles 'Item index)
           )
      )
      )
    )
  )
  (princ)
)

xyz2009xyz

回复 ljttjl 的帖子

人家楼主源码都上来了，还联系个屁！区别真大

luntan624

cad 有这样的功能命令QS

276701654

我想看年大本营棋棋

276701654

真的可以吗？

fei_yi3

看下是什么东东!!!!

fei_yi3

怎么看不到东西啊