[求助]：请高手帮我做一个LSP!!!急急急!!!

shq197528

我在图纸空间里标尺寸的时候经常会出现尺寸的数字自动变大!想请高手们帮我编一个标完尺寸后让数字固定!
本人将出现的图纸发给高手们看看!!!!是用CAD2005版绘的图!!!!
意思是标完标注及调整完数字后让数字固定,同时再请高手帮我编一个固定数字后变回不固定.
因为我经常打图的时候会出现这个问题,如果是我打图的话我知道尺寸会在什么地方变,有时不是我打图,所以就会让人家以为我标错了!哎!只好请高手帮帮忙了!
如果高手帮我这个忙的话!高手要我有的相关资料我会提供!
我的QQ是48821734

laoxie_1983

你好：
　　我可以帮你看看！我以前也遇到过这样的问题．用lisp变了一个小程序解决了！把你的图纸发给我看看吧！最好把他转换成dxf格式

shq197528

好的!我现在就发!不过不知道会不会出现尺寸变大!只是有时会有时不会!

shq197528

好的!我现在就发!不过不知道会不会出现尺寸变大!只是有时会有时不会!
2

Dallas_whu

;若整个图纸中标注比例的小数保留位数一致，此命令应该可以解决问题
;若不固定他会将小数保留位数变成一样的。
;有其他问题lhb_hepsdi@126.com
;将尺寸数字固定
(defun C:DIMF ()
  (setq ss (ssget "X" '((0 . "DIMENSION"))))
  (setq n (sslength ss))
  (setq dimdecs (getvar "dimdec"))
  (setq i 0)
  (while (< i n)
    (SetQ ss_name (EntGet (SsName ss i)))
    (setq ss_assoc (cdr (assoc 1 ss_name)))
    (IF        (= ss_assoc "")
      (progn
      (SetQ ssq_nv (RToS (cdr (Assoc 42 ss_name)) 2 dimdecs))
      (setq ss_name (subst (cons 1 ssq_nv) (assoc 1 ss_name) ss_name))
      (entmod ss_name)
      )
      )
    (setq i (+ i 1))
  )
  (princ)
)

;将尺寸数字不固定
(defun C:DIMM ()
  (setq ss (ssget "X" '((0 . "DIMENSION"))))
  (setq n (sslength ss))
  (setq dimdecs (getvar "dimdec"))
  (setq i 0)
  (while (< i n)
      (setq ss_name (subst (cons 1 "<>") (assoc 1 ss_name) ss_name))
      (entmod ss_name)
    (setq i (+ i 1))
  )
  (princ)
)

shq197528

!多谢5楼主!不过将尺寸数字不固定
用不了!好像没有变!

狂刀

搜索 陌生人 的帖子，贴过一个dim标注固定的程序