[寻找]：谁有关于图块插入的LISP例程

yxpxa · 发表于 2004-11-19 17:52:27

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

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

×

我想做一个可是不知从何着手，
谁有让我先研究一下啊。谢谢了。

speed_fisher · 发表于 2004-11-20 19:04:21

贴个插入图框的程序供大家参考：
defun c:tk()
  (setvar "cmdecho" 0)
  (setq sc (getreal "\n输入出图比例<1:100>  1:"))
  (if (not sc) (setq sc 100))
  (command "_insert" "Th1" "0,0,0" sc sc "")
  (setq p (entlast))
  (command "Ortho" "off" )
  (command "zoom" "e")
  (princ "\n请点取插入点:")
  (command "move" p "" "0,0,0")
  (setvar "cmdecho" 1)
(princ)
)
(princ)

peng197806 · 发表于 2004-12-13 21:12:23

会用LISP就自然会了

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

[寻找]：谁有关于图块插入的LISP例程

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

相关帖子