[LISP程序]：一个给尺寸标注添加前后缀的小程序:

lsjjm

一个给尺寸标注添加前后缀的小程序:
这是我在洋人公司工作时编的一个小程序, 可以加直径符号前缀,
或度数等后缀, 你可根据自己的需要作些修改.
(defun c:addpresuffix ()
  (vl-load-com)
  (princ "\nSelect Dimension:")
  (setq ents (ssget) n 0)
  (setq psfix (getstring "[&Dia/dEg/Metric/Ref/Typ]"))
  (cond
    ((= (strcase psfix) "D")(setq txt "%%c"))
    ((= (strcase psfix) "E")(setq txt "%%d"))
    ((= (strcase psfix) "M")(setq txt "mm"))
    ((= (strcase psfix) "R")(setq txt "REF."))
    ((= (strcase psfix) "T")(setq txt "TYP."))
  );c
  (while (< n (sslength ents))
    (setq ent (vlax-ename->vla-object (ssname ents n)))
    (if (= (strcase psfix) "D")
      (vlax-put-property ent 'textprefix txt)
      (vlax-put-property ent 'textsuffix txt)
    );
    (setq n (1+ n))
  );
  (princ)  
);defun

梦断江南

(vl-cmdf ".dim" "ov" "post" "%%d<>mm" "")
so,一般通用点的可以这么写:
[php]
;;dim标注加前后缀:
(defun c:dmpost ()
  (vl-cmdf ".dim" "ov" "post" (getstring "\n输入前后缀(用<>表示默认文本,如\"A<>mm\"):") "")
)[/php]

lsjjm

或者：(vl-cmdf "_.dimoverride" "dimpost" "%%c<>" "")
那么修改或添加尺寸标注前缀也可以这样：
[PHP]
(defun c:test ()
  (if (or (= pref nil)(= pref ""))(setq pref "%%c"))
  (setq pref0 pref
        pref (getstring (strcat "\nType in Prefix:<" pref ">"))
  )
  (if (= pref "")(setq pref pref0))
  (vl-cmdf "_.dimoverride" "dimpost" (strcat pref "<>") "")
)
[/PHP]

aeo

最初由 lsjjm 发布
[B]或者：(vl-cmdf "_.dimoverride" "dimpost" "%%c<>" "")
那么修改或添加尺寸标注前缀也可以这样：
[PHP]
(defun c:test ()
  (if (or (= pref nil)(= pref ""))(setq pref "%%c"))
  (setq pref0 pref
      ... [/B]

两码事，虽然效果一样.

一个是英雄属性，一个是外挂宝物。

lizhaojun45

第一版的。加前缀的选择性只有一个 直径符号，其它的全是加后缀，能多几个就好了，改进空间很大。