[LISP]块替换源程序，但换完后块不在插入点上,帮改改

googo

(defun C:blkrp ()
(setvar "osmode" 0)
(princ "\n请选择作为源块的图块:")
(setq a1 (ssget (list (cons 0 "insert"))))
(setq stent (ssname a1 0))
(setq stent (entget stent))
(setq insname (assoc 2 stent))
(setq insname (cdr insname))
(princ insname)
(princ "\n请选择将替换的图块:")
(setq a (ssget (list (cons 0 "insert"))))
(if (/= a nil)
(progn
(setq n (sslength a))
(setq index 0)
(repeat n
(setq foent (ssname a index))
(setq ent1 (entget foent))
(setq index (+ index 1))
(setq inspt (assoc 10 ent1))
(setq inspt (list (nth 1 inspt) (nth 2 inspt)))
(setq insang1 (assoc 50 ent1))
(setq insang (cdr insang1))
(if (/= insang 0)
(setq insang (/ (* insang 180) pi))
)
(command "erase" foent "")
(command "insert" insname inspt 1 1 insang "")
)
)
)
(setvar "osmode" 687)
(princ)
)

meflying

这样吧：

2. (defun C:blkrp ( / ss BlkName ents i)
3.    (setvar "osmode" 0)
4.    (princ "\n请选择作为源块的图块:")
5.    (setq ss (ssget (list (cons 0 "INSERT"))))
6.    (setq BlkName (cdr (assoc 2 (entget (ssname ss 0)))))
7.    (princ "\n请选择将替换的图块:")
8.    (setq ss (ssget (list (cons 0 "INSERT"))))
9.    (if ss
10.        (progn
11.            (setq i 0)
12.            (repeat (sslength ss)
13.   (setq ents (entget (ssname ss i)))
14.   (setq ents (subst (cons 2 BlkName) (assoc 2 ents) ents))
15.   (entmod ents)
16.   (setq i (1+ i))
17.            )
18.        )
19.    )
20.    (princ)
21. )

(defun C:blkrp ( / ss BlkName ents i)    (setvar "osmode" 0)    (princ "\n请选择作为源块的图块:")    (setq ss (ssget (list (cons 0 "INSERT"))))    (setq BlkName (cdr (assoc 2 (entget (ssname ss 0)))))    (princ "\n请选择将替换的图块:")    (setq ss (ssget (list (cons 0 "INSERT"))))    (if ss        (progn            (setq i 0)            (repeat (sslength ss)   (setq ents (entget (ssname ss i)))   (setq ents (subst (cons 2 BlkName) (assoc 2 ents) ents))   (entmod ents)   (setq i (1+ i))            )        )    )    (princ) )

熊哥哥

多谢了

HuaiYu

不错！

dgbgg-100

         帮忙写个能把图形中所有TEXT文本数据统计并以文本形式导出来！小弟在这里先谢谢给位了！