yang686526

[求助]求助caoyin 版主，如何获取qleader末端的那个端点的坐标？
www.dimcax.com

(setq ssi (ssget))
(if ssi
(if (= (cdr (assoc 2 (setq edat (entget (setq e (ssname ssi n_in)))))) "材料")
(progn
(setq n_in 0)
(setq len_in (sslength ssi))
(command "undo" "begin")
(repeat len_in
(setq ins (cdr (assoc 10 edat))
insc (cdr (assoc 41 edat)))
(command "_scale" e "" ins (/ scal (abs insc))))
)
(setq n_in (+ 1 n_in))
)
(command "undo" "end")
)
为何会出错呢？
选择对象: 指定对角点: 找到 8 个
选择对象: ; 错误: 参数类型错误: numberp: nil
d
(setq ssi (ssget))
(command "undo" "begin")
(if ssi
(repeat (setq n_in (sslength ssi))
(if (= (cdr (assoc 2 (setq edat (entget (setq e (ssname ssi (setq n_in (1- n_in)))))))) "材料")
(progn
(setq ins (cdr (assoc 10 edat))
insc (cdr (assoc 41 edat)))
(command "_scale" e "" "_non" ins (/ scal (abs insc))))
)
)
)
)
(command "undo" "end")
;;我改了一下，但你未指定 scal 变量
d