[LISP函数]：2007年更新,(标注加公差)

黄河之水

很感谢上期三位相助的kohi 会员/ zxq0220 会员 /taner会员,我下载之后试了,第一个程序我改为用命令随机输入,缺点是:比如正负0.2,,结果是上面是+0.2下面是_0.2,不合标注要求,正确是正负号共用一个0.2就好,如果能提示(公差值相同请输C),输C后直接输入0.2更好
希望能修改一下
********************************
第二个可运行,但很错误,



第一个
(defun c:test ()
  (setq up 0.15 lower 0.06);也可通过对话框或命令行随机输入
  (setq dd (ssget '((0 . "dimension"))))
  (setq n 0)
  (while (< n (sslength dd))
    (setq obj (vlax-ename->vla-object (ssname dd n)))
    (vla-put-toleranceupperlimit obj up)
    (vla-put-tolerancelowerlimit obj lower)
    (vla-put-tolerancedisplay obj 2)   
    (vla-update obj)
    (setq n (1+ n))
  )
)

/////////////////////////////////////////////////
第二个
(DEFUN C:TOLE ()
(DEFUN RDATA () (SETQ PU (GET_TILE "pu") PD (GET_TILE "pd")))
(SETQ FF (OPEN "INPUT.DCL" "w"))
(WRITE-LINE "input : dialog {" FF)
(WRITE-LINE " label=\"公差输入\";" FF)
(WRITE-LINE " : edit_box { key=\"pu\"; label=\"上公差\";value=\"+0.01\";}" FF)
(WRITE-LINE " : edit_box { key=\"pd\"; label=\"下公差\";value=\"-0.01\";}" FF)
(WRITE-LINE " ok_cancel;" FF)
(WRITE-LINE "}" FF)
(CLOSE FF)
(IF (> (SETQ DCL_ID (LOAD_DIALOG "INPUT")) 0) (PROGN
  (IF (NEW_DIALOG "input" DCL_ID) (PROGN
   (action_tile "accept"  "(RDATA) (DONE_DIALOG 1)")
   (action_tile "cancel" "(DONE_DIALOG 0)")
   (SETQ RE (START_DIALOG))
  ) (ALERT "Unable to display dialog box!"))
  (UNLOAD_DIALOG DCL_ID)
) (ALERT "Unable to load dialog box!"))
(IF (= RE 1) (PROGN
  (PRINC "\n选择尺寸 : ")
  (IF (SETQ SS (SSGET '((0 . "DIMENSION")))) (PROGN
   (SETQ I 0)
   (IF (AND (= (SUBSTR PU 1 1) "+") (= (SUBSTR PD 1 1) "-"))
    (SETQ PRE (STRCAT "%%p" (SUBSTR PU 2)))
    (SETQ PRE (STRCAT "\\S" PU "^" PD ";"))
   )
   (REPEAT (SSLENGTH SS)
    (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I))
    (SETQ RR (CDR (ASSOC 1 ENT)))
    (SETQ RR (STRCAT (IF (= RR "") "<>" RR) PRE))
    (SETQ ENT (SUBST (CONS 1 RR) (ASSOC 1 ENT) ENT))
    (ENTMOD ENT)
   )
  ))
))
(PRINC)
)

lxch

看看这个，应该可以满足你的要求。

公差标注的lisp程序
http://p4.xdcad.net/forum/showth ... 3077779#post3077779

黄河之水

多谢,我回去试试