查看单个帖子
旧 2009-04-26, 02:03 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 [求助]求助caoyin 版主,如何获取qleader末端的那个端点的坐标?

[求助]求助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
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)