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

xj6019

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

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

xj6019

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

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

gaics

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

xj6019

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

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

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

gaics

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

...

一样的，把pt替换为pause

xj6019

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

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

xj6019

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")
))
)