几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   [求助]求助caoyin 版主,如何获取qleader末端的那个端点的坐标? (http://www.dimcax.com/hust/showthread.php?t=11229)

yang686526 2009-04-26 02:03 PM

[求助]求助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


所有的时间均为北京时间。 现在的时间是 10:44 PM.