[LISP函数]：text纠错

zjyxks · 发表于 2006-6-12 22:50:50

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

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

×

请问,(command "text" pt6 1 s pp) 这句话有错误么?
我主要是想标注文本,而文本的旋转角度是s,其中s是
(command "line" pt1 pt2 "")
(setq s (angle pt1 pt2)) 控制,
我想: 文字的旋转角度和line 的方向一样?如何进行修改?

Underway · 发表于 2006-6-13 08:31:45

;; Text style 未设文字高度
(command "text" pt6 1 s pp "")

;; Text style 已设文字高度
(command "text" pt6 s pp "")

;;适用 2K4

zxq0220 · 发表于 2006-6-13 08:40:16

角度S要转换一下单位。
(SETQ S (/ (* (ANGLE PT1 PT2) 180) PI))

zjyxks · 发表于 2006-6-13 13:30:38

o ,谢谢.
还有我标注的文字需要对齐，以什么方式呢？我要文字接在一直线的后面（直线不是两个端点么，我要接在第一个点的前面），然后第二点有箭头，

zcy792096 · 发表于 2006-6-15 15:32:03

请问二楼楼主，在程序中如何判断使用的文字是否已经被设字体的高度了，最近就碰到这样的问题。

zxq0220 · 发表于 2006-6-15 21:57:02

(PRINC (IF (> (CDR (ASSOC 40 (TBLSEATH "STYLE" (GETVAR "TEXTSTYLE")))) 0) "字高已设" "字高为零"))

zcy792096 · 发表于 2006-6-16 09:23:49

对不起，我试了一下，系统告诉我说，没有TBLSEATH 这函数。请问6楼楼主，这是否
你自定义的函数，如有，能否提供给我。谢谢。

zxq0220 · 发表于 2006-6-16 09:35:16

对不起，敲错了。

(PRINC (IF (> (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETVAR "TEXTSTYLE")))) 0) "字高已设" "字高为零"))

zcy792096 · 发表于 2006-6-16 09:39:43

谢谢。现在可以了。帮我解决了难题。

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

[LISP函数]：text纠错

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

相关帖子