多选图元,把所选图元变成块,位置不变

xtdwynij · 发表于 2013-7-17 20:32:49

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

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

×

以下为代码!只是命令图块命的那部分错了!求高手解答!
(defun c:tt (/ )
  (if (null blockbo)
(progn
(setq iblock 1)
(setq blockbo (read (strcat "#bopt" (itoa iblock))))
);假如是空的则#bopt1为第一次值
(progn
(setq iblock (1+ iblock))
(setq blockbo (read (strcat "#bopt" (itoa iblock)))) ;read为返回字符串的第一个表或原子
);假如不是空的则#bopt1每次加1
  )
  (prompt "\n请框选要变成块的对像")
  (setq blockss (ssget)) ;块选集
  (setq blockpt1 (cdr (assoc 10 (entget (ssname blockss 0)))));插入点
  (command "-block" "blockbo" blockpt1 blockss "") ;块名错了

);

newer · 发表于 2013-7-17 21:14:48

用你的代码，第一次运行，可以做出块。
你把局部变量都加上吧，要不第二次运行就不是你希望的了。

ll_j · 发表于 2013-7-17 21:15:55

块名错了，不要使用read，对一个字符串read，得到的是一个变量名，不是字符串，而块名应该是字符串，在命令block中块名blockbo应该直接使用变量名，而不是字符串。

xtdwynij · 发表于 2013-7-17 21:18:53

我这里没有CAD,可以帮我运行一下么?块名解决了!长老一看就看出来了!总是这样!

st788796 · 发表于 2013-7-17 21:42:22

构造一个随机数做块名，或者直接做匿名块

ll_j · 发表于 2013-7-17 21:45:45

xtdwynij 发表于 2013-7-17 21:18
我这里没有CAD,可以帮我运行一下么?块名解决了!长老一看就看出来了!总是这样!

(defun c:tt (/)
(if (null blockbo)
(progn
(setq iblock 1
blockbo (strcat "#bopt" (itoa iblock))
)
) ;假如是空的则#bopt1为第一次值
(progn
(setq iblock (1+ iblock)
blockbo (strcat "#bopt" (itoa iblock))
)
) ;假如不是空的则#bopt1每次加1
)
(princ "\n请框选要变成块的对像")
(setq blockss (ssget) ;块选集
blockpt1 (cdr (assoc 10 (entget (ssname blockss 0)))) ;插入点
)
(command "-block" blockbo blockpt1 blockss "")
(command ".insert" blockbo blockpt1 "" "" "") ;立即插入块
(princ)
) ;

xtdwynij · 发表于 2013-7-17 21:56:28

多谢长老出手!长老回答我的的问题几乎是不用思考的!每次都能一语言中!另外,,,at788796师兄。我就是用的全局变量来做块名的！还能用无名块？是用的VLISP么？VLISP我连入门都算不上，只能算是了解！还请指点一下，让小菜长长眼界！

st788796 · 发表于 2013-7-18 01:45:30

本帖最后由 st788796 于 2013-7-18 01:51 编辑

xtdwynij 发表于 2013-7-17 21:56
多谢长老出手!长老回答我的的问题几乎是不用思考的!每次都能一语言中!另外,,,at788796师兄。我就是用的全局 ...

本想写写，结果一搜高飞鸟版主早发过来，而且发表于 2007-1-25 21:12:21
http://www.xdcad.net/forum/forum.php?mod=viewthread&tid=618961
http://www.xdcad.net/forum/forum.php?mod=viewthread&tid=612652
另外一个
http://www.xdcad.net/forum/forum.php?mod=viewthread&tid=96797

用 xdapi 一句话

(xdrx_block_make (ssget) (getvar "viewctr") t )

chenyu1618 · 发表于 2013-7-18 08:19:14

ll_j 发表于 2013-7-17 21:45

请教一下能否实现，在框选成块时自己选择基点呢？

st788796 · 发表于 2013-7-18 08:45:24

chenyu1618 发表于 2013-7-18 08:19
请教一下能否实现，在框选成块时自己选择基点呢？

把块基点改为 getpoint

ll_j · 发表于 2013-7-18 08:57:17

chenyu1618 发表于 2013-7-18 08:19
请教一下能否实现，在框选成块时自己选择基点呢？

你是要“自动”选择基点还是“手动”交互选择基点呢？我的程序就是楼主的程序改的，基点是按选择集的第一个实体的某个特征点来定的，属于“自动”，如果需要“手动”，可以将插入点blockpt1采用getpoint交互输入得到。

一个技巧：选择集的第一个实体，在框选时按照cad设定的顺序进行，可能就是叠放次序，也就是后画的在前，这样，第一个实体就是选择集中“最后”（最上层）的实体，如果要设定一个实体为第一个实体，可以采用两种方法，一是将实体“前置”（不好的方法），另一个方法是先单选这个实体，在进行框选。

chenyu1618 · 发表于 2013-7-18 19:30:48

ll_j 发表于 2013-7-18 08:57
你是要“自动”选择基点还是“手动”交互选择基点呢？我的程序就是楼主的程序改的，基点是按选择集的第一 ...

谢谢解决我的问题，又学了一个小技巧。能不能帮忙写一个自己手选基点的VISP，刚刚开始学习，自己还不会写！

xtdwynij · 发表于 2013-7-19 20:14:43

chenyu1618 发表于 2013-7-18 19:30
谢谢解决我的问题，又学了一个小技巧。能不能帮忙写一个自己手选基点的VISP，刚刚开始学习，自己还不会写 ...

(defun c:tt (/)
  (if (null blockbo)
(progn
   (setq iblock  1
         blockbo (strcat "#bopt" (itoa iblock))
   )
)                                  ;假如是空的则#bopt1为第一次值
(progn
   (setq iblock  (1+ iblock)
         blockbo (strcat "#bopt" (itoa iblock))
   )
)                                  ;假如不是空的则#bopt1每次加1
  )
  (princ "\n请框选要变成块的对像")
  (setq blockss  (ssget)             ;块选集
      blockpt1(point "请指定插入点"));插入点
  )
  (command "-block" blockbo blockpt1 blockss "")
  (command ".insert" blockbo blockpt1 "" "" "")  ;立即插入块
  (princ)
)                                     ;
                                 ;

st788796 · 发表于 2013-7-19 22:39:17

xtdwynij 发表于 2013-7-19 20:14
(defun c:tt (/)
(if (null blockbo)
(progn

楼主要补的课太多，首先要通读下alisp有哪些函数，最好的教材就是联机帮助。
既要指定点当然要一和用户交互的取点函数，交互的包括Getxxxx等，这里用Getpoint, not point

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

[求助] 多选图元,把所选图元变成块,位置不变

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

评分

评分

评分

点评

点评

点评

点评

点评

点评