[求助]：高手帮忙看下坐标标注的程序.谢谢！

eobser · 发表于 2006-2-16 14:16:24

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

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

×

程序能够实现标注的功能
但总是提示：未知命令e_ptxy，请查看F1帮助.
问题在哪呢？
(defun c:e_ptxy ()
(setvar "cmdecho" 0)
(setvar "plinewid" 0)
(if (= nil (setq th (getreal "\n输入文字高度<5>:")))
      (setq th 5.0)
   )
(while (setq pt (getpoint "\n选取座标点:"))
         (setq ptx (cadr pt))
         (setq pty (car pt))
         (setq pt2 (getpoint pt "\n选取导出线位置:"))
         (setq chr_x (strcat "x=" (rtos ptx 2 3)))
         (setq chr_y (strcat "y=" (rtos pty 2 3)))
         (command "point" pt)
         (setq ang (angle pt pt2))
         (if (and (> ang (/ pi 2)) (< ang (* pi 1.5)))
            (setq ang2 pi)
            (setq ang2 0.0)
         )
         (setq pt3 (polar pt2 ang2 (* th 8.0)))
         (setq p21 (car pt2))
         (setq p22 (cadr pt2))
         (setq p31 (car pt3))
         (setq p32 (cadr pt3))
         (setq p41 (/ (+ p21 p31) 2))
         (setq p42 (/ (+ p22 p32) 2))
         (setq pt4 (list p41 p42 0))
         (command "pline" pt pt2 pt3 "")
         (command "text" "bc" pt4 th "" chr_x "")
         (command "text" "tc" pt4 th "" chr_y "")
   )
(princ)
)

ljpnb · 发表于 2006-2-16 14:31:38

把(command "text" "bc" pt4 th "" chr_x "")去掉最后一对""就行了，下面一行也是一样

eobser · 发表于 2006-2-16 14:47:21

收到问题解决
谢谢！

lyl6414300 · 发表于 2006-3-28 14:44:03

按照二楼说的修改后可以使用了，但是可以缩放就好了。

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

[求助] [求助]：高手帮忙看下坐标标注的程序.谢谢！

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

相关帖子