首次发贴望大是帮忙 "cmddia" nil
选择后提示 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)
)
... 变量设置被拒绝: "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))
页:
[1]