求任意拖动文字程序

言戲無軍

不知道对不对

1. ;;;函数名称:xty-vec-vxs
   
2. ;;;函数说明:
   
3. ;;;参    数:v:
   
4. ;;;参    数:s:
   
5. ;;;返 回 值:
   
6. ;;;示    例xty-vec-vxs v s)
   
7. (defun xty-vec-vxs (v s)
   
8.   (mapcar '(lambda(x) (* x s) ) v)
   
9.       
   
10. )

;;;函数名称:xty-vec-vxs<br /> ;;;函数说明:<br /> ;;;参    数:v:<br /> ;;;参    数:s:<br /> ;;;返 回 值:<br /> ;;;示    例<img src="static/image/smiley/default/sad.gif" smilieid="2" border="0" alt="" />xty-vec-vxs v s)<br /> (defun xty-vec-vxs (v s)<br />   (mapcar '(lambda(x) (* x s) ) v)<br />        <br /> )

夏生生

言戲無軍 发表于 2022-3-11 22:48
no function definition: XTY-VEC-VXS
差个函数 大神

6楼予以补充

言戲無軍

夏生生 发表于 2022-3-11 22:58
6楼予以补充

第一行修改 加上我补的那个函数 能用了感谢

1. (setq  *xty-e2o* vlax-ename->vla-object   *xty-o2e*  vlax-vla-object->ename)
   

(setq  *xty-e2o* vlax-ename->vla-object   *xty-o2e*  vlax-vla-object->ename)<br />

cj52000

和尚777 发表于 2022-3-10 21:19
(defun c:tt ()
        (if(setq e(entsel))
                (command "move" (car e)""(cadr e) pause)

谢谢，很好用

cj52000

夏生生 发表于 2022-3-11 09:33
给您几个函数，拼凑一下
(setq *xty-o2e* vlax-ename->vla-object *xty-e2o* vlax-vla-object->ename)

谢谢热心关注！

liwen888888

和尚777 发表于 2022-3-10 21:19
(defun c:tt ()
        (if(setq e(entsel))
                (command "move" (car e)""(cadr e) pause)

虽然代码简短，但是非常好用

cj52000

和尚777 发表于 2022-3-10 21:19
(defun c:tt ()
        (if(setq e(entsel))
                (command "move" (car e)""(cadr e) pause)

师兄这个能不能帮忙在优化下，就是使用此程序时自动关闭正交，自动关闭捕捉，因为工作中移动文字经常是哪里有空往哪里放，谢谢！

bai2000

二楼程序很实用，能改为框选会更好

尘缘一生

(defun c:tt ()
        (while (setq e (entsel))
                (command "move" (car e)""(cadr e) pause)
        )
        (princ)
)

cj52000

尘缘一生 发表于 2022-3-17 10:28
(defun c:tt ()
        (while (setq e (entsel))
                (command "move" (car e)""(cadr e) pause)

谢谢，这个可以命令不中断，一直使用，能否加上使用此命令关闭正交，关闭捕捉