跪求lisp语言中(command"mirror"..后边怎么用？我想用这个编一个选定一定区域就能把图形镜像出的

答案:4 悬赏:80

解决时间 2021-11-11 01:14

提问者网友：残阳碧曼
2021-11-10 02:04

最佳答案

二级知识专家网友：统治我的世界
2021-11-10 02:22

这个是我一个程序中的句子，我想足以说明lisp中mirror命令的参数格式。
(command "mirror" enthpd1 enthpd2 enthpd3 enthpd4 "" pt ptct "n")
式中 enthpd1 enthpd2 enthpd3 enthpd4 为镜像的对象；
""表示对象选择结束；
pt ptct 为镜像的直线的两端点；
"n"表示不删除原对象

全部回答

1楼网友：零负荷的放任
2021-11-10 05:37

(defun c:mm( / ss pt1 pt2 ) (setq ss (ssget );"选择对象" pt1 (getpoint ) pt2 (getpoint ) ) (if(and ss pt1 pt2)(command "mirror" pt1 pt2 "y")) )

2楼网友：劳资的心禁止访问
2021-11-10 04:40

(defun c:mm( / ss pt1 pt2 ) (setq ss (ssget );"选择对象" pt1 (getpoint ) pt2 (getpoint ) ) (if(and ss pt1 pt2)(command "mirror" pt1 pt2 "y")) ) 再看看别人怎么说的。

3楼网友：都不是誰的誰
2021-11-10 03:41

你要先设定pt1、pt2，才行 (defun g( ) (setq s1 ssget("选择对象") pt1 (getpoint ) pt2 (getpoint ) ) (command "mirror" pt1 pt2 "y") )

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！