[编程申请]：小弟初学者，跪求一个小工具。

blackice · 发表于 2009-4-3 10:31:10

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

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

×

小弟初学者，跪求一个小工具。
我初来做公路工程的总体图，每天的大量工作就是将各种公路方面的图快插入到图上的指定位置，然后依据具体情况作相应的旋转，虽然指定的位置和旋转的角度只需要用鼠标点选，不要求精确。但是每张图有几十个不同的图快，每次插入后还要另外执行一个命令去旋转它，异常麻烦，我自己也尝试着学了一点lisp，结果都无功而返。所以在这里想请教各路大虾，能不能帮小弟写一个……能实现这样功能的小工具。
1、事先定义好各种块之后，直接通过键盘来选取（类似快捷键）
2、用鼠标在屏幕上选取位置实现插入。
3、插入后，立即可以通过鼠标的移动来旋转。
请各路大虾帮帮忙啦！

gysjy · 发表于 2009-4-3 22:31:36

下面的程序能插入图中的已有的块：
[PHP](defun to(n)
  (cdr (assoc n (entget sn)))
)

(defun c:nn( / nam sn x y z)
  (setq sn (car (entsel "\n点取要插入的图块:")))
  (if (= "INSERT" (to 0))
(progn
   (setq nam (to 2) x (to 41) y (to 42) z (to 43))
   (command "insert" nam "x" x "y" y "z" z )
)
(princ "\n ***你所点取的图元不是块，请重新点取块。***")
  )
  (princ)
)
[/PHP]

blackice · 发表于 2009-4-3 22:52:47

嗯这是个好东西……真是太感谢你了，现在接下来的问题就是如何用键盘快捷键来调用块了

huanghu119 · 发表于 2009-4-15 20:32:38

谢谢

xuyu · 发表于 2009-4-15 23:32:03

这个程序好，可以输入角度精确旋转吗

lyx_711015 · 发表于 2009-4-16 09:15:07

不错！！！

ranran86 · 发表于 2009-4-22 10:02:43

好用，谢谢了

chgj19842003 · 发表于 2009-4-23 10:09:29

恩我觉得也不错谢谢咯

yizhiwei1984 · 发表于 2009-4-24 16:48:36

我也只会用不会做.现在才开始学..........各们大侠以后多多帮忙

cy956 · 发表于 2009-6-8 02:02:46

看题，上面的程序不够到位，应该是手动选点插入，随机自动旋转，少点几下鼠标。

zqb05 · 发表于 2009-6-8 13:41:42

好东西

kikigz88 · 发表于 2009-6-17 15:45:30

试用哈子还不错

mardeyoul0 · 发表于 2009-6-23 10:34:15

这个好用

pingchangren · 发表于 2009-7-6 17:24:10

好用，谢谢了

yangist · 发表于 2013-6-9 16:30:57

这个很难吧，只能给你加油LE~~~

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

[编程申请]：小弟初学者，跪求一个小工具。

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

相关帖子