[LISP]如何用lisp实现 图形转块

瀛丹

想用lisp实现把图线直接转为块，而不用打开block图框那么麻烦。自己写了一个，能写块，但不能在原地保留块，加了一条插入块的代码也不行，不知道那里错了，求救   -.-!~ ~

(DEFUN C:123() (setq a (substr (RTOS (GETvar "DATE") 2 8) 10 9))
               (setq b (substr (RTOS (GETvar "CDATE") 2 8) 10 9))
               (command ".block" (strcat "cb" a b "x")
               (command ".insert" (strcat "cb" a b "x") "@0,0,0" "" "" ""))

七夜

用copy然后再粘贴为块不是很简单米``

zxy9108

    是不是块的定义错了,块的定义应该确定一个插入点,

瀛丹

想用LISP实现会快多，copy然后再粘贴为块比较麻烦，块的拾取点是用鼠标点击。

 (command ".insert" (strcat "cb" a b "x") "@0,0,0" "" "" "")) 后面的 @0,0,0 就是想使用插入点拾取点为插入点

不过不成功。别说位置不正确，块根本就没插入。

七夜

运行后块有米有做成功啦·？··

sailorcwx

试试(command "insert" (strcat "cb" a b "x") "0,0,0" "1" "1" "0")

龙龙仔

(defun C:123 ()
  (setq A (substr (rtos (getvar "DATE") 2 8) 10 9))
  (setq B (substr (rtos (getvar "CDATE") 2 8) 10 9))
  (command ".block" (strcat "cb" A B "x") "0,0,0" (ssget) "")
  (command ".insert" (strcat "cb" A B "x") "0,0,0" "" "" "")
  (princ)
)

瀛丹

先谢龙版主，运行OK，问题是插入点定在" 0,0,0 " ，这样的话，当使用拉伸命令的时候就拉不动图块，而且如果使用 "转换块"lisp 的话，目标也会插入到0,0,0那里，能否自定插入点？

瀛丹

自己研究了一番终于知道怎么做了。以下是完成后的程序，简单的程序，大家不要见笑~~ ^.^ (谢谢龙大侠的帮忙)

(defun C:test ()
  (setq A (substr (rtos (getvar "DATE") 2 8) 10 9))
  (setq B (substr (rtos (getvar "CDATE") 2 8) 10 9))
  (setq p1 (getpoint "\n请设定插入点"))
  (command ".block" (strcat "cb" A B "x") P1 (ssget) "")
  (command ".insert" (strcat "cb" A B "x") P1 "" "" "")
  (princ)
)

无痕

2. (defun c:bb ()
3.   (setvar "cmdecho" 1)
4.   (command ".copybase")
5.   (while (/= 0 (getvar "cmdactive"))
6.     (command pause))
7.   (command "_pasteblock")
8. )

(defun c:bb ()   (setvar "cmdecho" 1)   (command ".copybase")   (while (/= 0 (getvar "cmdactive"))     (command pause))   (command "_pasteblock") )