[求助]如何用lisp建立标注的子标注

飘然一方

比如，我原来有一个标注ss,我如何用lisp建立ss的角度标注、线性标注、直径标注…………

请赐教

hydkot99

按下例，我也是抄来的，呵呵

 ;★创建标注样式

   (if (not (tblsearch "dimstyle" "STANDARD"))   ;创建主标注
  (command "dimstyle" "S" "STANDARD")
 )

   (if (not (tblsearch "dimstyle" "STANDARD$0")) ;创建线性标注
      (command "dimstyle" "S" "STANDARD$0")
 )

   (if (not (tblsearch "dimstyle" "STANDARD$2")) ;创建角度标注
     (progn
     (setvar "DIMTIH" 1)
     (setvar "dimtad" 2)
      (command "dimstyle" "s" "STANDARD$2")
     (setvar "DIMTIH" 0)
     (setvar "dimtad" 1)
     )
 )

   (if (not (tblsearch "dimstyle" "STANDARD$3")) ;创建直径标注
     (progn
     (setvar "dimupt" 1)
     (setvar "DIMTOH" 1)
      (command "dimstyle" "S" "STANDARD$3")
     (setvar "dimupt" 0)
     (setvar "DIMTOH" 0)
     )
 )

   (if (not (tblsearch "dimstyle" "STANDARD$4")) ;创建半径标注
     (progn
     (setvar "dimupt" 1)
     (setvar "DIMTOH" 1)
      (command "dimstyle" "S" "STANDARD$4")
     (setvar "dimupt" 0)
     (setvar "DIMTOH" 0)
     )
 )

飘然一方

谢谢，找了好久了。