[求助]：文字绕自身正对中心旋转180度的方法（lsp无法通过）

gucci218 · 发表于 2005-12-8 08:38:07

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

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

×

(defun c:rt()
(setvar "cmdecho" 0)
(setq en (car (entsel "选取文字:")))
(setq endate (entget en))
(setq box (textbox endate))
(setq pt1 (car box))
(setq pt3 (cadr box))
(setq pt2 (list (car pt3) (car pt1)))
(setq pt4 (list (car pt1) (car pt4)))
(setq cen (inters pt1 pt3 pt2 pt4))
(command "rotate" en "" cen 180)
(prin1)
)

Underway · 发表于 2005-12-8 09:21:26

(command "rotate" en "" "none" cen 180)

gucci218 · 发表于 2005-12-8 12:57:43

underway兄：加"none" 有啥用，试了，没觉得有用呀，请教！！！

kfxz · 发表于 2005-12-8 13:00:15

不是这个绕（0，0）旋转，
是绕文字自身的正对中心，就是文字属性中“旋转”一项的值加180度。
帮我修改一下我的，为什么通不过！
(defun c:ro180  (/ ss  index  el)

(setq  ss  (ssget)
      index  O
  )

(repeat (sslength ss)
   (setq el    (entget (ssname ss index) )
            index  (1+ index                )
   )

(if  (=  "text"  (cdr (assoc 0 el)
               )
      )

      (progn
         (setq newangle (+3.14 (cdr (assoc 50 el)  )))
         (setq el (subst (cons 50 newangle )  (assoc 50 el)  el))
      (entmod el)
      )
)
)

princ

)

Underway · 发表于 2005-12-8 14:08:12

(defun mid_val (a b) ;;; Mid pt
   (cond
      ((listp a)
      (mapcar
      '(lambda (a b) (/ (+ a b) 2))
         a
         b
      ))
      (T (/ (+ a b) 2.0))
   )
)

(defun c:rt()
(setvar "cmdecho" 0)
(setq en (car (entsel "选取文字:")))
(setq endate (entget en))
(setq cen (apply 'mid_val (textbox endate))
   cen (mapcar '+ (cdr (assoc 10 endate)) cen)
)
(command "rotate" en "" "none" cen 180)
(prin1)
)

kfxz · 发表于 2005-12-8 16:19:02

楼上的这个程序，对一个单行文字第一次使用时，是绕着自身的中心旋转180度，但是再次选取这个文字时，程序的结果就变掉了，不知道是绕着哪点旋转了180度。
哪位高手能修改一下我的程序，为什么一直通不过啊？
(defun c:ro180 (/ ss index el)

(setq ss (ssget)
index O
)

(repeat (sslength ss)
(setq el (entget (ssname ss index) )
index (1+ index )
)

(if (= "text" (cdr (assoc 0 el)
)
)

(progn
(setq newangle (+3.14 (cdr (assoc 50 el) )))
(setq el (subst (cons 50 newangle ) (assoc 50 el) el))
(entmod el)
)
)
)

princ

)

Underway · 发表于 2005-12-8 16:38:38

(defun c:ro180 (/ ss index el)

  (setq ss (ssget)
index 0       ; O != 0 , lO != 10
  )

  (repeat (sslength ss)
(setq el (entget (ssname ss index))
   index (1+ index)
)

(if (= "TEXT"  (cdr (assoc 0 el)))
   (progn
(setq newangle (+ Pi (cdr (assoc 50 el))))
(setq el (subst (cons 50 newangle) (assoc 50 el) el))
(entmod el)
   )
)
  )
  princ
)

xyp1964 · 发表于 2005-12-9 19:10:35

文本旋转180度不符合规范！

[FONT=courier new](load "xyp_lib.vlx") ;版本 V.20051205 (1781)
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib.vlx")
■2·在每个程序内增加(load"xyp_lib.vlx")
■3·在command下，输入(load"xyp_lib.vlx")
■4·在菜单.mnl中增加(load"xyp_lib.vlx")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
|;
(defun c:test ()
(CMDLA0)
(setq ss (ssget '((0 . "TEXT")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq pt (xyp-get-MidPoint
(xyp-get-MinMaxPoint s1 1)
(xyp-get-MinMaxPoint s1 9)
)
)
(command "rotate" s1 "" pt "180")
)
(CMDLA1)
)[/FONT]

eachy · 发表于 2005-12-9 19:27:11

(defun c:tt (/ pmid ent)
(if (ssget '((0 . "text")))
(vlax-for ent (vla-get-activeselectionset
(vla-get-activedocument (vlax-get-acad-object))
)
(vla-getboundingbox ent 'uu 'bb)
(setq pmid (mapcar '(lambda (a b) (/ (+ a b) 2.))
(safearray-value uu)
(safearray-value bb)
)
)
(vla-rotate ent (vlax-3d-point pmid) pi)
)
)
(princ)
)

kfxz · 发表于 2009-2-20 09:45:13

vlax-get-acad-object是什么函数啊？原代码有吗？cad2008中无法使用

zml84 · 发表于 2009-2-20 09:56:34

[php]
;;2009-1-05 师兄代码，修改后如下：(vl-load-com)
(defun C:TT (/ SS I ENAME VLAOBJ P1 P2 MIDPT)
(setq I 0)
(if (setq SS (ssget '((0 . "LINE,TEXT,ARC,LWPOLYLINE,SPLINE"))))
(repeat (sslength SS)
      (setq ENAME    (ssname SS I)
   VLAOBJ (vlax-ename->vla-object ENAME)
      )
      ;;
      (vla-getboundingbox VLAOBJ 'P1 'P2)
      (setq P1 (safearray-value P1)
   P2 (safearray-value P2)
      )
      (setq
MIDPT (polar P1
      (angle P1 P2)
      (* 0.5 (distance P1 P2))
      )
      )
      ;;
      (vla-rotate VLAOBJ (vlax-3d-point MIDPT) pi)
      (setq I (1+ I))
)
)
(princ)
)
[/php]
http://zml84.blog.sohu.com/107943411.html

kfxz · 发表于 2009-2-20 11:02:56

还是不行啊，提示：; 错误: no function definition: VLAX-ENAME->VLA-OBJECT

已经解决了
加：
(vl-load-com)

fl202 · 发表于 2009-2-23 10:34:12

我想知道：楼上这么多的代码，哪个是测试成功的？

dabingrain · 发表于 2009-4-25 18:15:57

11楼正确好用

xyp1964 · 发表于 2009-4-25 22:02:18

自身旋转

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

[求助] [求助]：文字绕自身正对中心旋转180度的方法（lsp无法通过）

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

相关帖子