圆孔坐标标注与注解通用程序

xlbh · 发表于 2008-9-4 21:28

谢谢楼主的分享

zctao1966 · 发表于 2008-11-2 01:30

感谢楼主的分享！！！

wenhong_teng · 发表于 2009-2-20 00:02

谢谢楼主的分享

Jalinnet · 发表于 2009-2-22 22:11

干什么的呢？下来研究研究，先谢谢楼主。。。

zzxm · 发表于 2009-3-27 20:10

用了一下感觉太凡锁能否简单一点!谢谢分享!

siiling16 · 发表于 2009-4-29 20:45

頂一下!!!謝謝大大分享!!

zhongys · 发表于 2009-6-8 10:43

      (setq   pt1 (getpoint "\n请指定第一角:")
       ;pt2 (getpoint "\n请指定另一角:")
        pt2 (getcorner pt1 "\n请指定另一角:")
      )

对角点如果用到GETCORNER涵数，对于范围选择上会更加直观，捕捉点在原点设定后再归0会少一些繁复操作，

    (setq decimal_sum (read (getkword   "\n请输入注解精度<0-8>:"))) ;luyz
       (if (= decimal_sum nil) (setq decimal_sum 2))
    (setq height (getreal "\n请输入标记文本高度<4>:"))
       (if (= height nil) (setq height 4))

对于图纸上已设定好的参数不须重复输入。加入默认参数取可

wenmaokun · 发表于 2009-6-23 15:04

sicky111 · 发表于 2009-12-27 22:52

没钱下不了啊。

MJCADLWF · 发表于 2010-1-16 00:16

好程序下来学习多谢楼主

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