关于字体转变

ssgmyvvfb · 发表于 2005-1-23 21:52:00

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

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

×

如下代码是输入指定的高度和倾斜角来转化字体。不知道为什么就是不可以谁能帮我看一下那里错的谢谢，
(defun c:yi()
  (setq newhh (getreal "请输入文字的高度"))
  (setq newang (getangle "请输入文字的倾斜角的度数"))
  (setq ss (ssget))
  (setq n 0)
  (repeat (sslength ss)
(setq en(ssname ss n))
(setq endata(entget en))
(setq angdata (cdr (assoc 50 endata)))
(setq hhdata (cdr (assoc 42 endata)))
(setq typedata (cdr (assoc 0 endata)))
(if (= typedata "STYLE")
   (sub_style_rad)
)
(setq n (1+ n))
)
  (prin1)
)
(defun sub_style_rad()
  (setq new_hh (cons 42 newhh))
  (setq new_ang (cons 50 newang))
  (setq endata (subst new_hh hhdata endata))
  (setq endata (subst new_ang angdata endata))
  (entmod endata)
)
(prin1)

xyp1964 · 发表于 2005-1-23 23:07:33

dxf代码错误。
[php]
(load "xyp_lib")
(defun c:test (/ ss n en)
  (setq newhh  (ureal 1 "" "\n\t请输入文字的高度" newhh)
newang (uangle 1 "" "\n\t请输入文字的倾斜角的度数" newang (list 0 0))
ss    (ssget '((0 . "TEXT")))
n    0
  )
  (repeat (sslength ss)
(setq en (ssname ss n))
(sub_upd en 40 newhh)
(sub_upd en 51 newang)
(setq n (1+ n))
  )
  (princ)
)
[/php]

ssgmyvvfb · 发表于 2005-1-24 08:33:59

newang (uangle 1 "" "\n\t请输入文字的倾斜角的度数" newang (list 0 0))
对了那个uangle后面的1是代表什么意思啊

xyp1964 · 发表于 2005-1-26 01:00:05

有问题吗？先用再说！

ssgmyvvfb · 发表于 2005-1-26 09:12:54

高手你可不可以把这个全部的代码发过来给我看一下啊你只写一点小弟有一些看不懂啊

dzc1559 · 发表于 2005-1-26 11:27:35

高手们,你这个是什么程序啊, 是cad的吗?

qjcpj · 发表于 2005-1-26 22:03:52

ureal和uangle是"xyp_lib"文件中的自定义函数。

ss1025 · 发表于 2005-1-28 12:44:11

这个是xyp1964长老的自定义函数里的。
先加载了长老的通用子程序，就可以用了。

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

关于字体转变

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

相关帖子

浏览过的版块