xj6019 发表于 2019-12-1 22:20:38

求代码加上预览 哪位大神把下面的代码加上预览功能啊 谢谢了

pause   pause         pause         pause         pause   
哎看着这玩意熟   加上代码就废掉   主要还是不会加不知道加哪里啊   路过的帮忙加一下吧谢谢了
1.镜像   这个代码主要是自己懒镜像不想输入Y确定
(defun c:hg( / &kw @p1 @p2)
(setq &kw (ssget))
(if (/= &kw nil) (setq @p1 (getpoint "\第一鏡像点")) )
(if (/= @p1 nil) (setq @p2 (getpoint @p1 "\第二鏡像点 ")) )
(if (/= @p2 nil)
(command "mirror" &kw "" @p1 @p2 "Y")
)
(prin1)
)


2.插入块
(defun c:I8 ()
(CMDLA0)
(setq pt (getpoint "\n插入点<退出>"))
(command "-insert" "DWG" pt"" "" "")；DWG为文件路径
(CMDLA1)
)

gaics 发表于 2019-12-2 08:53:42

(command "mirror" &kw "" pause pause "Y")
可以用啊

xj6019 发表于 2019-12-2 09:18:06

gaics 发表于 2019-12-2 08:53
(command "mirror" &kw "" pause pause "Y")
可以用啊

能麻烦完整的 给改一下吗   谢谢

gaics 发表于 2019-12-2 09:22:08

(defun c:hg( / &kw)
(setq &kw (ssget))
(command "mirror" &kw "" pause pause "Y")
(princ)
)

xj6019 发表于 2019-12-2 09:58:33

gaics 发表于 2019-12-2 09:22
(defun c:hg( / &kw)
(setq &kw (ssget))
(command "mirror" &kw "" pause pause "Y")


这么回事   不用指定点啊   我是留着P1P2按你的改的   怎么弄都不行   我都没想到把P1P2去掉指定

您看看插入块的那个 也帮弄一下行吗我对lisp 不是太懂麻烦了   谢谢

gaics 发表于 2019-12-2 10:50:29

xj6019 发表于 2019-12-2 09:58
这么回事   不用指定点啊   我是留着P1P2按你的改的   怎么弄都不行   我都没想到把P1P2去掉指定

...

一样的，把pt替换为pause

xj6019 发表于 2019-12-2 11:06:50

gaics 发表于 2019-12-2 10:50
一样的，把pt替换为pause

嗯是的   我按照你的改的方法自己改了改成功可用    谢谢指导   现在完美达到理想状态了

xj6019 发表于 2019-12-2 11:34:51

gaics 发表于 2019-12-2 10:50
一样的，把pt替换为pause

再麻烦你一次把有个旋转的 我按照那个法子去掉pt后就没有鼠标拉出来的虚线显示了并且看不到预览
您直接帮我在代码基础上修改一下吧麻烦了    理想是鼠标上下移动的时候 能看出 图形旋转后的状态然后鼠标再点击一下 确认位置    现在的代码也是只缺预览    多有打扰 谢谢了   您直接帮我改个现成的吧
(defun c:RG(/ ss pt pt1 )
(if(and(setq ss(ssget))
          (setq pt(getpoint "\n基点を指定"))
          (setq pt1(getpoint pt "\n向上逆時針90度,向下順時針90度:"))
   )
(if(<(cadr pt1)(cadr pt))
(command".rotate" ss "" pt "-90")
(command".rotate" ss "" pt "90")
))
)
页: [1]
查看完整版本: 求代码加上预览 哪位大神把下面的代码加上预览功能啊 谢谢了