插入块的动态拖动及旋转

qianzj · 发表于 2013-6-14 21:32:37

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

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

×

如图是天正插入块的示例？关键点在于可以先对块进行旋转，等动态操作，然后再选点插入。
百思不得解。
对块进行动态插入运用grread可以解决，但是先动态旋转不会。。
求解惑！

XDSoft · 发表于 2013-6-14 21:40:56

楼主，这个照以前的还少了不少操作，比如平齐，镜像。
既然说GRREAD动态插入可以解决，那你先把GRREAD动态插入块的代码贴论坛来吧，然后在这个代码的基础上开始讨论如何动态的缩放，平齐，镜像。

wowan1314 · 发表于 2013-6-14 22:38:35

XD老大说的对！你先把GRREAD动态插入解决！

当你写完动态插入的代码，估计其他的你也都会了！

qianzj · 发表于 2013-6-15 09:02:17

本帖最后由 qianzj 于 2013-6-15 09:03 编辑

XDSoft 发表于 2013-6-14 21:40
楼主，这个照以前的还少了不少操作，比如平齐，镜像。
既然说GRREAD动态插入可以解决，那你先把GRREAD动态 ...

(defun c:tt ()
(vl-load-com)
(setq pt (cadr (grread T 8)))
(vl-cmdf "-insert" "$Sanitary$00000468" pt "" "" "0")
(setq ss (entlast))
(setq loop T)
(while loop
(setq code (grread T 8))
(cond
((= (car code) 5)
(vla-put-InsertionPoint
(vlax-ename->vla-object ss)
(vlax-3D-point (cadr code))
)
)
((= (car code) 3)
(setq loop nil)
)
((equal code '(2 27))
(progn
(setq ss (entlast))
(entdel ss)
)
)
)
)
)

下面代码可以实现块的动态插入  但是不能操作旋转
我试图在while循环里加入if  ，但是动态就没用了。。  XD站长支下招。。
  (while loop
(setq code (grread T 8))
(cond
   ((= (car code) 5)
      (if (/= (getstring "[90度旋转(A):]") nil)
      (progn  (setq ang (/ pi 2))
         (vla-put-Rotation (vlax-ename->vla-object ss) ang)
                     )
      (vla-put-InsertionPoint
         (vlax-ename->vla-object ss)
         (vlax-3D-point (cadr code))
      )
   )

qianzj · 发表于 2013-6-15 09:02:46

wowan1314 发表于 2013-6-14 22:38
XD老大说的对！你先把GRREAD动态插入解决！

当你写完动态插入的代码，估计其他的你也都会了！

动态插入写完了，旋转真不会加:L

newer · 发表于 2013-6-15 09:33:18

qianzj 发表于 2013-6-15 09:02
下面代码可以实现块的动态插入但是不能操作旋转
我试图在while循环里加入if ，但是动态就没用 ...

之所以旋转后，动态没了，是因为你的拖动是基于命令INSERT的，他在循环体外，你用IF截断了INSERT。

你试试把 (vl-cmdf "-insert" "$Sanitary$00000468" pt "" "" "0") 放到循环体里面，IF 以后的代码里面，在加进来它，看看拖动是否继续。

wowan1314 · 发表于 2013-6-15 10:15:11

qianzj 发表于 2013-6-15 09:02
动态插入写完了，旋转真不会加

你的旋转代码放错位置了！

wowan1314 · 发表于 2013-6-15 10:20:32

简单的写了个！大概思路是这样的，仅供你参考。

(DEFUN c:T1 NIL
(SETQ ENT (CAR (ENTSEL "\n 选个块测试吧")))
(setq AA T)
(PRINC "\n 指定插入点或A旋转")
(while AA
(setq BB (grread T 8))
(cond
((= (car BB) 5)
(SETQ PT (CADR BB))
(setq ent1 (entget ENT))
(entmod (subst (cons 10 pt) (assoc 10 ent1) ent1))
)
((= (car BB) 3) (SETQ AA NIL))
((equal BB '(2 97))
(COMMAND "ROTATE" ENT "" PT 90)
)
((equal BB '(2 65))
(COMMAND "ROTATE" ENT "" PT 90)
)
)
)
)

wowan1314 · 发表于 2013-6-15 10:22:55

其实LISP的GRREAD不支持捕捉是最大的遗憾！因为你无法准确直观的定位。

qianzj · 发表于 2013-6-15 13:12:25

经过1天努力，在各位帮助下终于弄出可带旋转的插入块，增加出错处理，并支持捕捉，左右，上下镜像可自行添加。
主要参考风之影grread大杀器，彩虹的动态粗糙度

(defun c:tt ()
(vl-load-com)
(setq *error_bak* *error*)
(setq pt (cadr (grread T 8)))
(vl-cmdf "-insert" "块名" pt "" "" "0")
(setq ss (entlast))
(setq entdb (entget ss))
(setq ang 0)
(setq loop T)
(setq *error* *error*_non)
(while loop
(setq code (grread T 8))
(cond
((or (= (car code) 5) (= (car code) 3))
(if (= (car code) 3)
(setq loop nil)
)
(setq sendpt (cadr code))
(vla-put-Visible (vlax-ename->vla-object ss) :vlax-false)
(setq endpt (osnap sendpt "endp,center,int,mid"))
(vla-put-Visible (vlax-ename->vla-object ss) :vlax-true)
(if endpt
(progn
(vla-put-InsertionPoint
(vlax-ename->vla-object ss)
(vlax-3D-point endpt)
)
)
(progn
(vla-put-InsertionPoint
(vlax-ename->vla-object ss)
(vlax-3D-point sendpt)
)
)
)
)
((or (equal code '(2 65)) (equal code '(2 97)))
(progn
(setq ang (+ ang (* pi 0.5)))
(vla-put-Rotation (vlax-ename->vla-object ss) ang)
)
)
)
)
(setq *error* *error_bak*)
)
(defun *error*_non (msg)
(setq *error* *error_bak*)
(entdel (entlast))
)

(defun c:tt () 
  (vl-load-com) 
  (setq *error_bak* *error*) 
  (setq pt (cadr (grread T 8))) 
  (vl-cmdf "-insert" "块名" pt "" "" "0") 
  (setq ss (entlast)) 
  (setq entdb (entget ss)) 
  (setq ang 0) 
  (setq loop T) 
  (setq *error* *error*_non) 
  (while loop 
    (setq code (grread T 8)) 
    (cond 
      ((or (= (car code) 5) (= (car code) 3)) 
       (if (= (car code) 3) 
         (setq loop nil) 
       ) 
       (setq sendpt (cadr code)) 
       (vla-put-Visible (vlax-ename->vla-object ss) :vlax-false) 
       (setq endpt (osnap sendpt "endp,center,int,mid")) 
       (vla-put-Visible (vlax-ename->vla-object ss) :vlax-true) 
       (if endpt 
         (progn 
           (vla-put-InsertionPoint 
             (vlax-ename->vla-object ss) 
             (vlax-3D-point endpt) 
           ) 
         ) 
         (progn 
 
           (vla-put-InsertionPoint 
             (vlax-ename->vla-object ss) 
             (vlax-3D-point sendpt) 
           ) 
         ) 
       ) 
      ) 
      ((or (equal code '(2 65)) (equal code '(2 97))) 
       (progn 
         (setq ang (+ ang (* pi 0.5))) 
         (vla-put-Rotation (vlax-ename->vla-object ss) ang) 
       ) 
      ) 
    ) 
  ) 
  (setq *error* *error_bak*) 
) 
(defun *error*_non (msg) 
  (setq *error* *error_bak*) 
  (entdel (entlast)) 
)

sachindkini · 发表于 2013-6-15 13:52:45

qianzj 发表于 2013-6-15 13:12
经过1天努力，在各位帮助下终于弄出可带旋转的插入块，增加出错处理，并支持捕捉，左右，上下镜像可自行 ...

dear sir,
error

Command: ap APPLOAD INSERTBLK.LSP successfully loaded.
Command:
Command:
Defined blocks.
User Unnamed
Blocks Blocks
0 528
Unknown command "TT". Press F1 for help.
Unknown command "TT". Press F1 for help.
Unknown command "0". Press F1 for help.
Too many objects selected for INTERSECT

XDSoft · 发表于 2013-6-15 14:31:38

qianzj 发表于 2013-6-15 13:12
经过1天努力，在各位帮助下终于弄出可带旋转的插入块，增加出错处理，并支持捕捉，左右，上下镜像可自行 ...

先恭喜你了，看你介绍的两个名字好响亮，大杀器。。。能把相关帖子链接帖下方便后来人吗？如果这论坛没，请转帖下，谢谢！

wowan1314 · 发表于 2013-6-15 14:34:27

sachindkini 发表于 2013-6-15 13:52
dear sir,
error

NO BLOCK

AMEND----- (vl-cmdf "-insert" "块名" pt "" "" "0")

sachindkini · 发表于 2013-6-15 14:52:28

wowan1314 发表于 2013-6-15 14:34
NO BLOCK

AMEND----- (vl-cmdf "-insert" "块名" pt "" "" "0")

dear sir,

thxx

but some error

Too many objects selected for INTERSECT

复制代码

sachindkini · 发表于 2013-6-15 14:53:11

wowan1314 发表于 2013-6-15 14:34
NO BLOCK

AMEND----- (vl-cmdf "-insert" "块名" pt "" "" "0")

dear sir,

thxx

but some error

Too many objects selected for INTERSECT

复制代码

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

[求助] 插入块的动态拖动及旋转

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

相关帖子

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评