[分享]：做直径标注程序

stone0030

小弟受老师启发，改了一个加直径＂phi＂的程序
程序虽小，希望实用
大家如有其他的希望共享

(defun c:test()
  (while
    (print "")
    (setq obj (entget (car (entsel"\n选取要加∮的尺寸:"))))
    (if (= (cdr (assoc 70 obj)) 32)      ;判断是否为线性标注
      (progn
      (setq obj (subst (cons 1 (strcat "%%c<>")) (assoc 1 obj) obj))
      (entmod obj)
      )
    )
    (if (= (cdr (assoc 70 obj)) 33)     ;判断是否为对齐标注
      (progn
      (setq obj (subst (cons 1 (strcat "%%c<>")) (assoc 1 obj) obj))
      (entmod obj)
      )
    )
  )
  (princ)
)

SLMin

CAD中要完成这种操作已经很简单了！

你这个程序用来学习还可以。

孤星

不错，新建一个标注样式就行