首次发贴望大是帮忙 "cmddia" nil

fvwbg

选择后提示 AutoCAD 变量设置被拒绝: "cmddia" nil  求大虾们帮忙啊。感激不尽
(defun C:ft (/ hpsc ss i s1 htcbl)
    (setvar "cmdecho" 0)
    (setq hpsc (getvar "hpscale"))
    (command "_undo" "_begin")
   (princ "\n请选择")
    (setq ss (ssget '((0 . "hatch"))) i -1)
    (while (setq s1 (ssname ss (setq i (1+ i))))
           (command "hatchedit" s1 "p" "" (abs htcbl) "")
     )
    (setq htcbl (getdist "\n请输入比例<默认:100>："))
    (if (= htcbl nil) (setq htcbl 10))
        (command "_undo" "_end")
    (setvar "hpscale" hpsc)
    (princ)
)

Andyhon

... 变量设置被拒绝: "cmddia" nil  ...



    (setq htcbl (getdist "\n请输入比例<默认:100>："))
   (if (= htcbl nil) (setq htcbl 10))

   (while (setq s1 (ssname ss (setq i (1+ i))))
           (command "hatchedit" s1 "p" "" (abs htcbl) "")    ; Why Abs?
     )
   ;; (setq htcbl (getdist "\n请输入比例<默认:100>："))
  ;; (if (= htcbl nil) (setq htcbl 10))