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))
(setq pt2 (x1 x2))

(command "-plot" "Y" "" "D2F.PC3" "" "" "" "" "Window" pt1 pt2 "Fit" "Center" "" "" "" "" "" "" "" )

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

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

你好
 
将pt2更换为以下部件：

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

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

Thanxxxxxxxxxxxx thrawat

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

不客气。很乐意帮忙。
页: [1]
查看完整版本: 什么'；我的代码错了吗？