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

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

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

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

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

想在程序中调用 -L2

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

(* L2 -1)/(- L2)

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

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

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

(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:10

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

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

呵呵，确实是"gp" 问题，去掉引号也不对，得改成(ssget "_x") 就对了，重复上个选择集，不能是上个选择，已经搞定了，谢谢大师们相助
页: [1]
查看完整版本: 请教大师们个问题：怎么把输入的值改为负值？