插入块的动态拖动及旋转

wowan1314

sachindkini 发表于 2013-6-15 14:53
dear sir,

thxx

You can try that I write

XDSoft

wowan1314 发表于 2013-6-15 10:20
简单的写了个！ 大概思路是这样的， 仅供你参考。

GRREAD你是用的很熟了。给你个课题，你看看，你能不能把 acet-ss-drag-move 那些组合下，用他们的动态，然后再加入旋转什么的试试？

sachindkini

1. (defun LM:ForceBlockDefinition ( block / path ext base )
   
2.   ;; © Lee Mac 2010
   
3.   (setq path  (vl-filename-directory block)
   
4.         ext   (vl-filename-extension block)
   
5.         base  (vl-filename-base block))
   
6. 
   
7.   (and (eq ""  ext) (setq ext ".dwg"))
   
8.   (or  (eq "" path) (setq path (strcat path "\\")))
   
9.   
   
10.   (cond
    
11.     ( (tblsearch "BLOCK" base) base )
    
12. 
    
13.     ( (setq block (findfile (strcat path base ext)))
    
14. 
    
15.       (command "_.-insert" block) (command) base
    
16.     )
    
17.   )
    
18. )

(defun LM:ForceBlockDefinition ( block / path ext base )<br />   ;; &#169; Lee Mac 2010<br />   (setq path  (vl-filename-directory block)<br />         ext   (vl-filename-extension block)<br />         base  (vl-filename-base block))<br /> <br />   (and (eq ""  ext) (setq ext ".dwg"))<br />   (or  (eq "" path) (setq path (strcat path "\\")))<br />   <br />   (cond<br />     ( (tblsearch "BLOCK" base) base )<br /> <br />     ( (setq block (findfile (strcat path base ext)))<br /> <br />       (command "_.-insert" block) (command) base<br />     )<br />   )<br /> )

sachindkini

wowan1314 发表于 2013-6-15 14:55
You can try that I write

dear sir,

how to add dialog box??

newer

sachindkini 发表于 2013-6-15 15:14

dear sir:

   They are talking in GRREAD, dynamic drag a selection set and  transform

sachindkini

newer 发表于 2013-6-15 15:37
dear sir:

   They are talking in GRREAD, dynamic drag a selection set and  transform

wo...
i totally miss grread

裸奔的花猫

wowan1314 发表于 2013-6-15 10:22
其实LISP的GRREAD不支持捕捉是最大的遗憾！ 因为你无法准确直观的定位。

这点其实也不是重点，GRREAD可以模拟捕捉，最关键的是当物体插入点正好与块或者选择集内物体重合时候会捕捉自身，这是无法解决的，也是无法和ARX媲美的，你看CAD的粘贴，捕捉是不会傻到捕捉自己的地步的

bbbxxxccclt

学习学习，学习学习

bjs_china

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

测试下来无效果.
命令: crk -insert 输入块名或 [?] <轿箱摄像>: 轿箱摄像
单位: 毫米   转换:    1.0000
指定插入点或 [基点(B)/比例(S)/X/Y/Z/旋转(R)]:
输入 X 比例因子，指定对角点，或 [角点(C)/XYZ(XYZ)] <1>: 输入 Y 比例因子或 <使用 X 比例因子>:
指定旋转角度 <0>: 0
命令: #<SUBR @087c53fc *ERROR*>
命令: 指定对角点: