什么'；我的代码错了吗？

hosyn · 发表于 2022-7-5 18:52:18

我得到pt1，我想从pt1得到pt2，用于打印窗口选项：


; get the plotting area
(setq pt1 (getpoint "\nSelect Lower Left Hand Corner of Plotting Area: "))
(setq x1(+30 car pt1))  
(setq x2(+40 caddr pt1))
[color="#f4a460"](setq pt2 (x1 x2))[/color]
(command "-plot" "Y" "" "D2F.PC3" "" "" "" "" "Window" pt1 pt2 "Fit" "Center" "" "" "" "" "" "" "" )

但我知道pt2错了，怎么纠正呢？

Tharwat · 发表于 2022-7-5 19:25:54

你好

将pt2更换为以下部件：

copy


(list (+ 30 (car pt1)) (+ 40 (cadr pt1)) 0.)

hosyn · 发表于 2022-7-5 19:39:01

Thanxxxxxxxxxxxx thrawat

Tharwat · 发表于 2022-7-5 20:02:33

不客气。很乐意帮忙。

[编程交流] 什么'；我的代码错了吗？

发表回复

精选推荐

浏览过的版块