标注样式管理器代码怎么写？

zilong136

• (defun c:g1()
•   (princ "\n g1标注样式管理器")  
•     (initdia)(vl-cmdf "dimstyle")
• )
• 怎么改这串代码？
• 
  
  

xiaocainiao

2. (defun c:g1 ()
   
3.         (vl-load-com)
   
4.         (vla-sendcommand
   
5.                 (vla-get-ActiveDocument (vlax-get-acad-object))
   
6.                 "DIMSTYLE "
   
7.         )
   
8.         (princ)
   
9. )
   
10. 
    
11. 是这个意思吧

(defun c:g1 ()<br />         (vl-load-com)<br />         (vla-sendcommand<br />                 (vla-get-ActiveDocument (vlax-get-acad-object))<br />                 "DIMSTYLE "<br />         )<br />         (princ)<br /> )<br /> <br /> 是这个意思吧

xj6019

xiaocainiao 发表于 2024-2-5 08:04

直接D回车不就是吗，你猜楼主是不是不知道呀

xiaocainiao

xj6019 发表于 2024-2-5 13:18
直接D回车不就是吗，你猜楼主是不是不知道呀

有可能他是想用Lisp去修改标注样式的快捷键、我以前就干过这种事

zilong136

xj6019 发表于 2024-2-5 13:18
直接D回车不就是吗，你猜楼主是不是不知道呀

看破不说破

zilong136

xiaocainiao 发表于 2024-2-5 16:03
有可能他是想用Lisp去修改标注样式的快捷键、我以前就干过这种事

我现在就是走你以前走的路，还得是你啊。

shirker

学习了，支持一下