求助

浮云游子 · 发表于 2004-6-15 17:26:00

求一可以在尺寸前加直径符号的程序，同时不要改变所标注尺寸，而下一程序会把标注尺寸改成默认尺寸。
(defun c:zj(/ obj)
(setq obj(ssget'((0 . "DIM*"))))
(command "._dimedit" "n" "%%c" obj "")
)

无痕 · 发表于 2004-6-15 20:21:00

关键是找出更改后的标注值
dxf 1
TextSuffix
Textprefix

meflying · 发表于 2004-6-15 22:46:00

你有试过吗？
我运行了，并不会改变

无痕 · 发表于 2004-6-16 01:06:00

他的意思是标注值人为改变过。比如33.15改为33.20.
而程序中 "%%c" 虽然加了前缀，但是数值被改成默认的了。

龙龙仔 · 发表于 2004-6-16 09:40:00

;;By 龙龙仔(LUCAS)
;;使用方法PUT "%%C" "HELLO")
;;使用方法PUT "%%C" "")
(defun PUT (VALUE1 VALUE2 / OBJ)
   (setq OBJ (entsel "\n选取标註: "))
   (if (and (/= OBJ NIL)
   (setq OBJ (vlax-ename->vla-object (car OBJ)))
   (vlax-write-enabled-p OBJ)
   )
   (progn
   (setq ORG (vla-get-textoverride OBJ))
   (if (= "" ORG)
(setq ORG "")
   )
   (setq ORG (strcat VALUE1 ORG VALUE2))
   (vla-put-textoverride OBJ ORG)
   )
   )
   (princ)
)