[编程申请]：求思路或LSP程序

倒数第一名

我比较喜欢图块，方便选择，移动，拷贝，旋转，镜相之类的动作。可也正由于图块，在旋转或或镜相后，图块里面的标注，文字也跟着旋转或镜相了，违背了我的本意，针对这种情况，我偿试写过一段程式
(defun c:nnb ( )
  (setq en (entsel "选取需还原图块:"))
  (setq AA (entget (car en)))
  (setq PTS(cDr EN))
  (command "erase" EN "")
  (command "INSERT" EN PTS "1" "0" "")
  )
意思是找到选取图块后，取得图块名字及所在位置，删除原有图块，然再插放刚刚所取的图块，可却没结果，望各位走过路过的指点指点。

gysjy

你的程序中想插入的图块实际上并不一定和原图块相同。这是因为你插入的图块放大比例是1，而原图块却不一定是1；同理，原图块的旋转角、所在图层、属性等等都不一定和你新插入的图块相同。这种思路实际上很难行得通。
图块编辑最常见的问题是镜像后字变反了。下面的程序可以纠正被变反了的图块：

2. 
   
3.   [FONT=courier new]
   
4. (defun to(n)
   
5.   (cdr (assoc n (entget sn)))
   
6. )
   
7. (defun c:nn ( )
   
8.   (setq sn (car (entsel "选取需还原图块:"))
   
9.         dx (abs (to 41))
   
10.         en (entget sn)
    
11.         en (subst (cons 41 dx) (assoc 41 en) en)
    
12.   )
    
13.   (entmod en)
    
14.   (princ)
    
15. )
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun to(n)<br />   (cdr (assoc n (entget sn)))<br /> )<br /> (defun c:nn ( )<br />   (setq sn (car (entsel "选取需还原图块:"))<br />         dx (abs (to 41)) <br />         en (entget sn)<br />         en (subst (cons 41 dx) (assoc 41 en) en)<br />   )<br />   (entmod en)<br />   (princ)<br /> )<br />   [/FONT]<br />

倒数第一名

gysjy
谢谢你，问题解决了。

ailmy

解决了一个大问题

five321

不错 刚好拿来用 谢谢楼主！

倒数第一名

还有缺点，总觉得方法可以改进。
比如说不能框选什么的。期待高手进来看看然后再回复一下。

gysjy

最初由 倒数第一名 发布
[B]比如说不能框选什么的。…… [/B]

[PHP]
(defun to(n)
  (cdr (assoc n (entget sn)))
)
(defun c:nn ( / dx en n sn ss)
  (setq ss (ssget '((0 . "INSERT"))) n 0)
  (repeat (sslength ss)
    (setq sn (ssname ss n) n (1+ n)
          dx (abs (to 41))
          en (entget sn)
          en (subst (cons 41 dx) (assoc 41 en) en)
          en (subst (cons 50 0) (assoc 50 en) en)
    )
    (entmod en)
  )
  (princ)
)
[/PHP]

倒数第一名

像下图所示，只能一个一个的选择还原，而且不能拉个框选还原。

iceredtea

这个小程序对于块不镜像、只镜像块中的文字不可以，可以改一下程序达到这个目的吗？

倒数第一名

最初由 gysjy 发布
[B]
[PHP]
(defun to(n)
  (cdr (assoc n (entget sn)))
)
(defun c:nn ( / dx en n sn ss)
  (setq ss (ssget '((0 . "INSER... [/B]

好东西，再次替需要此命令的朋友们感谢你。
努力向你等学习。不仅仅是技术更是你等的助人的精神。谢谢。

dtlin

顶