求助：lsp坐标重新定义问题，符lsp
(defunc:sxc ( / p1 p3 p2 ss p3_x p3_y)(ztc_c)
(command "undo" "be")
(setq p1 (getpoint "上旋窗基点:"))
(setq p1_x (car p1);p1点x
p1_y (cadr p1);p1点y
)
(setq p3 (getcorner p1 "\n上旋窗对角点:" ))
(setq p3_x (car p3);p3点x
p3_y (cadr p3);p3点y
)
(setq p1x (min p1_x p3_x);重新调整p1 p3
p1y (min p1_y p3_y)
p3x (max p1_x p3_x)
p3y (max p1_y p3_y)
p1(list p1x p1y)
p3(list p3x p3y)
p2(list p3x p1y)
p4(list p1x p3y)
);setq
;(command "-layer" "s" "WINDOW" "")
(command "RECTANG" p1 p3);窗外框
(setq ss (entlast))
(command "OFFSET" "50" "non" p1 "m2p" "non" p1 "non" p3"");选择框不要的
(setq ss1 (entlast))
;(command "pline" "from" "non" p1 "non" "@50,50" "from" "m2p" "non" p3 "non" p4 "non" "@0,-50");镜像窗
(command "line" "non" p1 "non" p3);镜像窗
(command "undo" "e")
);end
整个代码去到pline的时候就过不了，提示输入的不是二维点，不知道是不是在转换坐标的时候就出错了。
页:
[1]