参数传递不到坐标里

jmkite · 发表于 2018-5-27 15:41:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

下面代码，为什么参数SUMLEN传不到坐标里面。
;功能：对象向上平移某对象长度，某对象长度可以单选一个对象的长度，也可以框选多个对象的长度总和。
(defun c:ss (/ CURVE TLEN SS N SUMLEN)
(vl-load-com)
(setq SUMLEN 0)
(prompt "\n请选择某对象长度作为向上平移量!")
(setq SS (ssget ":S" '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
(setq N 0)
(repeat (sslength SS)
(setq CURVE (vlax-ename->vla-object (ssname SS N)))
(setq TLEN (vlax-curve-getdistatparam
CURVE
(vlax-curve-getendparam CURVE)
)
)
(setq SUMLEN (+ SUMLEN TLEN))
(setq N (1+ N))
)
(prompt "\n请选择平移对象!")
(command ".copy" (ssget ":S") "" "m" '(0 0 0) '(0 SUMLEN 0) "")
(princ "\n处理完毕!")
(princ)
)

炫翔 · 发表于 2018-5-28 16:05:46

基本功 list可以构建变量 '是针对实值

marting · 发表于 2018-5-27 15:48:41

'(0 SUMLEN 0) 改成 (list 0.0 sumlen 0.0)

jmkite · 发表于 2018-5-27 15:53:15

marting 发表于 2018-5-27 15:48
'(0 SUMLEN 0) 改成 (list 0.0 sumlen 0.0)

谢谢高手。

王子 · 发表于 2018-5-28 08:37:16

高手还是多

账号		自动登录	找回密码
密码			立即注册

[求助] 参数传递不到坐标里

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。