[求助]：请教一个问题（图块插入问题急急急！）

fireplay · 发表于 2007-7-12 14:35:04

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

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

×

我编写了一个程序，要在画图区点取一点，作为我自定义的一个图块的插入点，问题在插入之前怎样让图块以虚线状态跟随鼠标移动，而且光标具有捕捉功能，就像在AutoCAD中直接用命令插入时最后一步选择插入点时一样效果。

zml84 · 发表于 2007-7-12 18:17:32

在程序中欲插入图块的地方写入代码：
[PHP]
(command "_.insert" 块名 PAUSE PAUSE PAUSE PAUSE)
[/PHP]

fireplay · 发表于 2007-7-18 12:33:40

你给我的代码我用了,有部分问题解决了,但有时我用到了循环,按<enter>键或右键不能直接跳出程序,不知是否能有办法解决,敬候佳音!!!!

carrot1983 · 发表于 2007-7-18 13:18:49

你的command里好像全是pause就不会循环
直接跳过Y的比例
[php]
(defun c:tt (/ blockname)
  (while (/= (setq blockname (getstring "\n输入块名:")) "")
(command "_.insert" blockname pause pause "" pause)
  )
  (princ)
)
[/php]

zml84 · 发表于 2007-7-18 14:19:29

下面这个应该可以满足楼主关于右键后退出的要求。

(defun C:TT (/ BLOCKNAME PT)
(if (/= (setq BLOCKNAME (getstring "\n输入块名:")) "")
(while (setq PT (getpoint "\n点取插入点:"))
(command "_.insert" BLOCKNAME PT "" "" "")
)
)
(princ)
)

但这样以来，就没有动态效果了。

gysjy · 发表于 2007-7-18 19:06:56

命令名为i，缩放比例为1。若搜索不到块，则提示你重新输入块名。

[FONT=courier new]
(defun ins0(/ x lp)
(setvar "cmdecho" 0)(graphscr)(setq lp t)
(while lp (if (null block0)(setq block0 "bg"))
(princ "\n块名:<") (princ block0)
(setq x (getstring ">") nam (if (eq x "") block0 x))
(if (or (findfile (strcat nam ".dwg"))(tblsearch "BLOCK" nam))(setq lp nil)
(princ (strcat "---未找到名为" NAM "的块,请重新输入块名.")) ))
(setq block0 nam))
(defun c:i(/ nam)(ins0)(command "insert" nam "x" "1" "y" "1")
(princ "\n插入点:")(command pause "0")(princ))12
[/FONT]

fireplay · 发表于 2007-7-19 11:40:00

感谢各位的帮助，我看了一下，你们提供的代码不能满足我的要求，我的程序是在存在图块和已知所有缩放比例的基础上，在一点上插入此块，光标背后显示此图块要插入的形状，最后我只要点取一点就可以把图块插入到指定位置，然后提示我重新点取位置插入一样的图块，当我按回车键或者右键时还能退出程序，希望各位高手给与指导。谢谢！！！

fireplay · 发表于 2007-7-19 16:07:26

我的程序基本如下的，需要怎样才能实现我要得效果？
  (while (exp)
(princ "\n请输入插入点")
(command "_.insert" blockname sx sy ang “最后是插入点”) 如果我不按回车键，就会继续插入，否则结束，只是要得到效果，大家给点意见，不知大家能否明白我要得到的效果？？？
  )
  (princ)
)

carrot1983 · 发表于 2007-7-19 17:32:33

你要的效果应该是很容易得到的。。。
如果上面的程序都没有办法解决你的问题。
那我想你要检讨自己。。
你肯定自己能写得出来。。。为什么要折磨大家。

Dream.Fei · 发表于 2007-7-19 20:13:27

很累？

;; 判断块存不存在，自己搞定
(defun c:x1 (/ date loop mod obj vp)
(vl-cmdf "insert" "2007071920082795" '(0 0 0) 1 1 1)
(setq loop t)
(while loop
(setq obj (vlax-ename->vla-object (entlast)))
(setq date (grread t 4 0)
mod (car date)
vp (cadr date)
)
(cond ((= mod 5)
(vlax-put obj "insertionpoint" vp)
)
((= mod 3)
(vl-cmdf "insert" "2007071920082795" '(0 0 0) 1 1 1)
)
(t (setq loop nil))
)
)
(vla-delete obj)
)

雨箭风刀 · 发表于 2007-7-19 20:39:14

用grread肯定可以.其它的.如果用命令,没想过

fireplay · 发表于 2007-7-20 10:06:00

对不起各位高手，我也许没有说清楚，让大家误会了，我已经用过grread了，但是我需要图块插入时具有捕捉功能，grread就不能实现，而且图块还闪的要命，所以我想请教一下有没有别的办法可以解决我的问题。在进入循环之后我只有一个输入“请选择插入点。

carrot1983 · 发表于 2007-7-20 12:21:57

楼上，你终于说出了我的苦啊！

gysjy · 发表于 2007-7-20 19:34:58

也发一个在这里。虽然过程中需要多点一次，但捕捉、循环、虚线跟随等都能满足楼主的要求：

[FONT=courier new]
(defun c:ibg (/ p)
(setq p t os (getvar "osmode"))
(setvar "osmode" 1)
(while p
(command "insert" "bg" "x" "1" "y" "1" "r" "0" pause)
(setq p (getpoint"\n插入点:"))
)
(setvar "osmode" os)
(princ)
)
[/FONT]

zml84 · 发表于 2007-7-21 08:55:16

莫名其妙

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

[求助] [求助]：请教一个问题（图块插入问题急急急！）

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

相关帖子

[求助] [求助]：请教一个问题（图块插入问题 急急急！）

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

相关帖子

[求助] [求助]：请教一个问题（图块插入问题急急急！）