UG爱好者

标题: 請教一個標註LISP問題 [打印本页]

作者: ykuan 时间: 2015-12-8 06:44
标题: 請教一個標註LISP問題
本帖最后由 ykuan 于 2015-12-8 06:50 编辑

這是我的程式,我要標一個尺寸是有固定公差的,執行沒問題,但是我如果只要標尺寸不要公差dimlinear還是會帶出公差
(defun C:qq02(/ tpenter tmenter temptp)    (setq tpenter "0.05")
  (setq tmenter "-0.02")
  (setq temptp "2")
  (command "dimtol" "on")
  (command "dimlinear" "dimtdec" temptp "dimtp" tpenter "dimtm" tmenter)
  (princ)
)
我的想法是家這一行(command "dimtol" "OFF")但是便沒公差了
(defun C:qq02(/ tpenter tmenter temptp)
  (setq tpenter "0.05")
  (setq tmenter "-0.02")
  (setq temptp "2")
  (command "dimtol" "on")
  (command "dimlinear" "dimtdec" temptp "dimtp" tpenter "dimtm" tmenter)
  (command "dimtol" "OFF")
  (princ)
)
請問如何改善,謝謝!

欢迎光临 UG爱好者 (https://www.ugsnx.com/)