LISP救命？！！

Barrz84 · 发表于 2022-7-6 06:11:23

我正在努力完成这个Lisp程序我一直在玩今天然而，我没有训练或经验，写他们以外的谷歌，所以我相信它的一些简单的我做错了！！

如果有人能帮我完成，那太棒了。。。？？！

（定义c:dvf（）
（命令“ucs”“w”）
（setq-dviewtwist（*（getvar“viewtwist”）（/180.0 pi）））
（setq目标（getvar“target”））
（setq targetx（汽车目标））
（setq目标（cadr目标））
（setq新目标（targetx，targety，0.0））
（setq新摄像头（targetx，targety，1.0））
（命令“dview”指向“newtarget newcamera”“twist”dviewtwist“”）
（命令“ucs”“p”）
（普林斯）
)

我不知道如何从我创建的其他变量中创建newtarget和newcamera变量？？

干杯

jdiala · 发表于 2022-7-6 06:29:06

copy

(setq newtarget '(targetx targety 0.0))
(setq newcamera '(targetx targety 1.0))
or 
(setq newtarget (list targetx targety 0.0))
(setq newcamera (list targetx targety 1.0))

Barrz84 · 发表于 2022-7-6 06:55:36

我本以为它能工作，但结果仍然不正确。。。

这比我开始的要深入，它将用我想要的数字创建变量，但是我仍然需要在newtarget=x，y，z和newcamera=x，y，z之间加逗号

（定义c:dvf（）
（命令“ucs”“w”）
（setq-dviewtwist（*（getvar“viewtwist”）（/180.0 pi）））
（setq目标（getvar“target”））
（setq targetx（汽车目标））
（setq目标（cadr目标））
（setq newtarget（列出targetx targety 0.0））
（setq newcamera（列出targetx targety 1.0））
（命令“dview”“”“指向“newtarget newcamera”twist“dviewtwist”）
（命令“ucs”“p”）
（命令“regenall”）
（普林斯）
)

jdiala · 发表于 2022-7-6 07:01:15

维尔德，这个对我有用。

copy

(defun c:dvf (/ dviewtwist target targetx targety newtarget newcamera)
(command "ucs" "w")
(setq dviewtwist (* (getvar "viewtwist")(/ 180.0 pi)))
(setq target (getvar "target"))
(setq targetx (car target))
(setq targety (cadr target))
(setq newtarget (list targetx targety 0.0))
(setq newcamera (list targetx targety 1.0))
(command "dview" "" "points" newtarget newcamera "twist" dviewtwist "")
(command "ucs" "p")
(command "regenall")
(princ)
)

如果你真的想连接这些值

copy

(setq newtarget (strcat (rtos targetx 2) "," (rtos targety 2) "," "0"))
(setq newcamera (strcat (rtos targetx 2) "," (rtos targety 2) "," "1"))

Barrz84 · 发表于 2022-7-6 07:17:41

是的，修好了！！谢谢你，这个LISP将在重大项目中非常有用！！

[编程交流] LISP救命？！！

发表回复

精选推荐