[LISP程序]：自动生成带箭头圆弧局部视图符号

lsjjm · 发表于 2004-8-19 07:43:26

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

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

×

自动生成带箭头圆弧局部视图符号
[php]
(defun c:test ()
  (setq tx (getstring "\nType Detail ID <A>: "))
  (if (= tx "")(setq tx "A"))
  (setq pc (getpoint "\nPick Center of Detail Area: "))
  (vl-cmdf "circle" pc pause)
  (setq pl (cadr (grread t)))
  (vl-cmdf "erase" (entlast) "")
  (setq th (* 1.5 (getvar "dimscale")(getvar "dimtxt")))
  (setq r (distance pc pl))
  (vl-cmdf "arc" (polar pc (+ (angle pc pl) 0.2)(* 0.8 r))
   "c" pc  (polar pc (- (angle pc pl) 0.2)(* 0.8 r)))
  (setvar "dimse1" 1)
  (setvar "dimse2" 1)
  (vl-cmdf "dimangular" (polar pc (angle pl pc)(* 0.8 r))
            "t" " " (polar pc (angle pl pc) r) "exit")
  (vl-cmdf "erase" (ssname (ssget "x" '((0 . "ARC"))) 0) "")
  (vl-cmdf "text" "j" "m" pl th 0 (strcase tx) "")
  (setvar "dimse1" 0)
  (setvar "dimse2" 0)
  (princ)
)
[/php]

yjtdkj · 发表于 2004-8-19 09:38:42

请问这是用在什么专业的？建筑制图里好象没有这个符号呀？

lsjjm · 发表于 2004-8-20 04:19:27

最初由 yjtdkj 发布
[B]请问这是用在什么专业的？建筑制图里好象没有这个符号呀？ [/B]

机械制图

rungang2002 · 发表于 2004-10-15 23:37:32

这个有用,机械嘛

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

[LISP程序]：自动生成带箭头圆弧局部视图符号

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

相关帖子

浏览过的版块