社区 › 编程申请 › 求将所选对象的标注样式置为当前

qixin0728 发表于 2009-2-20 11:09:00

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

669423907 发表于 2011-3-7 00:24:22

谢谢版主！！！

daiguafan 发表于 2011-3-8 17:05:54

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

adc 发表于 2011-4-4 13:46:03

本帖最后由 adc 于 2011-4-4 13:47 编辑

这是其他人的
(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 发表于 2011-4-12 19:09:41

回复 ljttjl 的帖子

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

luntan624 发表于 2011-4-14 10:47:23

cad 有这样的功能命令QS

276701654 发表于 2011-9-20 15:31:19

我想看年大本营棋棋

276701654 发表于 2011-9-20 15:36:09

真的可以吗？

fei_yi3 发表于 2012-2-9 11:23:51

看下是什么东东!!!!

fei_yi3 发表于 2012-2-9 11:24:30

怎么看不到东西啊

查看完整版本: 求将所选对象的标注样式置为当前