如何跟踪CAD命令运行状态？？？？？

挚友01 · 发表于 2017-7-23 10:55:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(command "COPY" move_s1 "" move_s3 PAUSE)
用户选择了复制点时返回了什么？没选又返回了什么? ,怎么监控？如何返回T或nil

/db_自贡黄明儒_ · 发表于 2017-7-23 11:51:04

变量(getvar 'lastpoint)与前一个相比

newer · 发表于 2017-7-23 12:04:44

为什么要这么写代码，不是把明确的交互参数给COPY命令？

(if (and (setq p1 (getpoint "\n基点<退出>:"))
(setq p2 (getpoint p1 "\n下一点<退出>:"))
)
(command ".copy" ss "" p1 p2)
)

挚友01 · 发表于 2017-7-23 12:12:03

这种方式用过，但不理想，拷贝的东东不是动态显示的...
(while clmh_1  ;(setq qtf2 (getpoint move_s3 "\n-- 请拾取复制的下一点(X,Y) <回车结束> :"))
      (princ "\n-- 请拾取复制的下一点(X,Y) <回车结束> :")
      (setq gd_1gh1_s (entlast))
      (command "COPY" move_s1 "" move_s3 PAUSE)    ;(command "COPY" move_s1 "" move_s3 qtf2)

         (prin1 (logand (getvar "CmdActive") 1))(terpri)

newer · 发表于 2017-7-23 12:28:57

挚友01 发表于 2017-7-23 12:12

如果你想要动态显示，别指望最基本的命令能给你提供什么，也没必要花时间在这个上面。
你是自己写程序给自己和同事用吧，为什么不用现成的库帮你提供效率。
下载晓东通用LISP函数库，都现成的函数让你用。

去搜索下论坛，用动态，看看怎么实现。

挚友01 · 发表于 2017-7-23 12:49:04

动态可以实际，只是想用最简便的方法实现，如果(command "COPY" move_s1 "" move_s3 PAUSE)
能返回用户的输入状态，也就好了...

挚友01 · 发表于 2017-7-24 17:35:13

你们发没发现,拷贝给了基准点，下一点没给，直接回车或鼠标右键时，实体被拷贝到无限远，你们是怎么解决这个错误的？能否控制住这个bug?

tengteb · 发表于 2017-7-24 17:40:53

command与原生命令用法是一致的，要想现实特殊的效果，最好别用COMMAND。
我的原则是能不用command，就不用它。

st788796 · 发表于 2017-7-24 18:03:26

(defun c:tt (/ e p tf)
(if (and (setq e (entsel))
(setq p (getpoint "\nbase point: "))
)
(progn
(setq tf t)
(while tf
(command ".copy" e "" "_none" p "@")
(command ".move" e "" "_none" p)
(while (/= (getvar "cmdactive") 0)
(command pause)
)
(if (equal (getvar "lastpoint") p 1e-6)
(setq tf nil)
)
(setq p (getvar "lastpoint"))
)
)
)
(princ)
)

挚友01 · 发表于 2017-7-24 19:20:22

_none 在这里用做什么?

挚友01 · 发表于 2017-7-24 19:28:42

我扣楼上的思路差不多，我是在copy命令前(setq e (entlast))
(setq a (cdr (assoc 5 (entget e)))) 获得实体名
(command "COPY" e "" move_s3 PAUSE)
后再(setq ee (entlast))
(setq b (cdr (assoc 5 (entget ee))))
(if (= a b) 说明没有执行copy命令，但有个问题
PAUSE用回事和鼠标右键时，实际是将e拷贝到了无限远，CAD本身就有bug,所以PAUSE回车后,a <>b
是回车出现的bug ,不知如何解决这个问题.....

原地踏步 · 发表于 2017-7-25 14:15:21

这是AutoCAD帮助文件的内容：
命令条目:copy
选择对象: 使用对象选择方法并在完成选择后按 Enter 键

当前设置: 复制模式 = 当前值

指定基点或 [位移(D)/模式(O)/多个(M)] <位移>: 指定基点或输入选项

指定的两点定义一个矢量，指示复制的对象移动的距离和方向。

如果在“指定第二个点”提示下按 Enter 键，则第一个点将被判定为相对 X,Y,Z 位移。例如，如果指定基点为 2,3 并在下一个提示下按 Enter 键，对象将被复制到距其当前位置沿 X 方向 2 个单位，Y 方向 3 个单位的位置。

挚友01 · 发表于 2017-7-29 01:03:02

本帖最后由挚友01 于 2017-7-29 01:04 编辑

如果拷贝的是选择集呢，按上面说法，就无从查起，，， move_s1为选择集
(setq clmh_s (ssname move_s1 (- (sslength move_s1) 1)))
(setq clmh_1_pnt2 (cdr (assoc 10 (entget clmh_s))) clmh_1_pnt1 (list (car clmh_1_pnt2)(cadr clmh_1_pnt2)))
(prin1 (cdr (assoc 10 (entget (ssname move_s1 0)))))(prin1 " ")(prin1 clmh_1_pnt1)(getpoint)
(setq clmh_1 "T")
   (while clmh_1
      (princ "\n-- 请拾取复制的下一点(X,Y) <回车结束> :")
      (command "COPY" move_s1 "" move_s3 PAUSE)
      (setq clmh_1_pnt2 (cdr (assoc 10 (entget (entlast)))))
(prin1 clmh_1_pnt2)(getpoint)
clmh_1_pnt1+clmh_1_pnt1 <> clmh_1_pnt2

lijiao · 发表于 2017-7-29 09:34:08

楼主可以试试这个函数(acet-ss-drag-move ss pt [prompt] [highlight [cursor]])

挚友01 · 发表于 2017-7-29 09:46:09

(while (/= (getvar "cmdactive") 0)
(command pause)
)
返回的值怎么都为0啊，无论回车或给点

账号		自动登录	找回密码
密码			立即注册

[求助] 如何跟踪CAD命令运行状态？？？？？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。