[求助]：一个LSP程序的调用

lt_zzy · 发表于 2002-12-11 11:36:43

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

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

×

我编写了一个在CAD中写文本的LSP程序，一步一步完全可以执行，但是在调用的时候却提示是空函数，我是这样调用的:
(setq txt "123" height 20 ptnew '(100 100 0))
(xwb txt height ptnew)
请各位给我指点迷津，谢谢！
(defun c:xwb(txt height ptnew / txt_pp txt_n txt_p0 sty txt_p height_p ptold )
(setq txt_pp  '((0 . "TEXT") (67 . 0) (10 1.0 1.0 0.0) (40 . 20.0) (1 . "000") (50 . 0.0) (41 . 0.75) (51 . 0.0) (71 . 0) (72 . 0) (73 . 0)))
(setq txt_n (entmakex txt_pp))
(setq txt_p0 (entget txt_n))
(setq sty (getvar "textstyle"))
(setq sty (cons 7 sty))
(setq txt_p (cons 1 txt))
(setq height_p (cons 40 height))
(setq txt_p0 (subst sty (assoc 7 txt_p0) txt_p0))
(setq txt_p0 (subst height_p (assoc 40 txt_p0) txt_p0))
(setq txt_p0 (subst txt_p (assoc 1 txt_p0) txt_p0))
(setq ptold ( cdr (assoc 10 txt_p0)))
(setq ptnew (cons 10 ptnew))
(setq txt_p0 (subst ptnew (assoc 10 txt_p0) txt_p0))
(entmod txt_p0)
(princ)
)

LUCAS · 发表于 2002-12-11 12:19:03

改為 (defun xwb (......

lt_zzy · 发表于 2002-12-11 12:32:25

我在下面已经定义了xwb函数，应该可以直接调用，第二贴我有一些不明白，能讲得清楚一些吗？谢谢！

tuger · 发表于 2002-12-11 13:25:18

(setq txt "123" height 20 ptnew '(100 100 0))
(defun xwb (txt height ptnew / txt_pp txt_n txt_p0 sty txt_p height_p ptold )
(setq txt_pp '((0 . "TEXT") (67 . 0) (10 1.0 1.0 0.0) (40 . 20.0) (1 . "000") (50 . 0.0) (41 . 0.75) (51 . 0.0) (71 . 0) (72 . 0) (73 . 0)))
(setq txt_n (entmakex txt_pp))
(setq txt_p0 (entget txt_n))
(setq sty (getvar "textstyle"))
(setq sty (cons 7 sty))
(setq txt_p (cons 1 txt))
(setq height_p (cons 40 height))
(setq txt_p0 (subst sty (assoc 7 txt_p0) txt_p0))
(setq txt_p0 (subst height_p (assoc 40 txt_p0) txt_p0))
(setq txt_p0 (subst txt_p (assoc 1 txt_p0) txt_p0))
(setq ptold ( cdr (assoc 10 txt_p0)))
(setq ptnew (cons 10 ptnew))
(setq txt_p0 (subst ptnew (assoc 10 txt_p0) txt_p0))
(entmod txt_p0)
(princ)
)
(defun c:xwb ()
(xwb txt height ptnew)
(princ))
这样大概可以了,你试一下.

lt_zzy · 发表于 2002-12-11 14:34:07

谢谢你们了，这样可以了。以后有问题一定少不了你们的份了。

cy956 · 发表于 2002-12-11 18:41:49

最初由 tuger 发布
[B](setq txt "123" height 20 ptnew '(100 100 0))
(defun xwb (txt height ptnew / txt_pp txt_n txt_p0 sty txt_p height_p ptold )
(setq txt_pp '((0 . "TEXT") (67 . 0) (10 1.0 1.0 0.0) (40 . 20.0) (1 . "00... [/B]

不会吧，拐了几个弯？

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

[求助] [求助]：一个LSP程序的调用

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

相关帖子