请教大师们个问题：怎么把输入的值改为负值？

wudi · 发表于 2013-1-31 20:44

比如 (SETQ L2 (GETDIST "请输入值"))

怎样把这个L2变为相反数 -L2 ，想做外镜向类lisp

wudi · 发表于 2013-1-31 20:45

想在程序中调用 -L2

Andyhon · 发表于 2013-1-31 20:50

(* L2 -1) / (- L2)

lidaxiu · 发表于 2013-1-31 21:04

请楼上大师看我编的这个简单程序错在哪里？？？想双向在实体中切割，总切一边

lidaxiu · 发表于 2013-1-31 21:05

(setq gp (ssget))
(SETQ L2 (GETDIST "距离: "))
(command "ucs" "m" "z" L2 "")
(command "SLICE" gp "" "XY" "" "B" "")
(command "ucs" "p")
(SETQ L3 (* L2 -1))
(command "ucs" "m" "z" L3 "")
(command "SLICE" "gp" "" "XY" "" "B" "")
(command "ucs" "p")

lidaxiu · 发表于 2013-1-31 21:06

正好路过，和此问题可能沾些边吧

lidaxiu · 发表于 2013-2-1 13:02

呵呵，确实是"gp" 问题，去掉引号也不对，得改成(ssget "_x") 就对了，重复上个选择集，不能是上个选择，已经搞定了，谢谢大师们相助

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

请教大师们个问题：怎么把输入的值改为负值？

点评