[求助]：粗糙度标注程序

hyx_lyn · 发表于 2004-11-13 15:42:34

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

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

×

现在需要一个粗糙度标注的程序，我在论坛中没有搜到

先谢谢各位了

lsjjm · 发表于 2004-11-14 07:09:49

怎么会搜索不到呢？本论坛有关粗糙度的贴子有３０多个呢！　
下面的程序可依所选取点附近的实体自动设置符号的方位：
[php]
(defun c:test ()
  (setvar "osmode" 0)
  (setq p0 (getpoint "\nInput point"))
  (setq high (* (getvar "dimscale")(getvar "dimtxt")))
  (setq p1 (osnap p0 "near"))
  (if p1 (setq ang (angle p1 p0))(setq ang (/ pi 2) p1 p0))
  (if (or (null cvalue)(= cvalue ""))(setq cvalue "32"))
  (princ "\nInput Crudity Value <")
  (princ cvalue)
  (princ ">")
  (setq string (getstring))
  (if (or (null string)(= string ""))
　(setq string cvalue)
　(setq cvalue string)
　)
　 (vl-cmdf "pline" (polar p1 (- ang (/ pi 6))(/ high 0.3)) p1
               (polar p1 (+ ang (/ pi 6))(/ high 0.6))
               (Polar p1 (- ang (/ pi 6)) (/ high 0.6)) "")
  (if (and (< ang (/ (* pi 6) 7))(> ang (/ pi 6)))
(setq d 1 p0 (polar p1 ang (/ high 0.55)))
(setq d -1 p0 (polar p1 ang (/ high 0.35)))
  )
  (vl-cmdf "text" "j" "f" (polar p0 (+ ang (* d (/ pi 2))) high)
                        (polar p0 (- ang (* d (/ pi 2))) high) high string)
)
[/php]

hyx_lyn · 发表于 2004-11-15 10:24:02

感谢长老提供的程序

我会在论坛中再搜一下看看还能不能找到其它的

xazhji · 发表于 2004-11-15 19:48:49

http://www.mjtd.com/mcdown/down2/tzcad12_setup.exe

小鹏程 · 发表于 2004-11-19 11:19:20

我加载上去不知道怎么用！

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

[求助] [求助]：粗糙度标注程序

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

相关帖子