分享一个标注沉孔的小程序，请大家多多指教。

王航 · 发表于 2015-4-16 20:34:23

分享一个标注沉孔的小程序，请大家多多指教。
(defun c:tt()
  (VL-LOAD-COM)
  (setq AcadObject (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument Acadobject)
mSpace       (vla-get-ModelSpace Acaddocument)
  )
  ;;输入孔的数量
  (setq prefix1 (vla-GetString
   (vla-get-Utility AcadDocument)
   :vlax-false
   "请输入孔的数量<1>:"
)
  )
(if (= prefix1 "")

(setq  prefix  "φ" )

  (setq prefix (strcat prefix1 "-φ"))
)
  (setq suffix1 (GetString "请输大孔直径:"))
  (setq suffix (strcat "\\X" "沉孔φ" suffix1 "×" "90%%d" ))
  ;;选择一个标注
  (setq dimObj1 (car (entsel)))
  (setq dimObj (vlax-ename->vla-object dimObj1))

  ;;添加前缀
  (vla-put-TextPrefix dimObj prefix)
  ;;添加后缀
  (vla-put-TextSuffix dimObj suffix)
  (princ)
)

王航 · 发表于 2015-4-16 20:36:33

自己抢个沙发！

王航 · 发表于 2015-4-21 14:26:49

怎么没人回应？是不是太简单了，大家都不屑一顾？

lucas_3333 · 发表于 2015-4-21 15:50:10

跟这里这个不是差不多么？http://bbs.mjtd.com/thread-113472-1-1.html

真的很简单，

哪天有空我将我的标沉孔的演示给你看。

AshineZHANG · 发表于 2015-10-6 18:47:52

不太适合我喔，楼主能否帮忙按照附图的说明写一个沉孔的自动注解程序。
谢谢！！

l982414603 · 发表于 2021-11-7 17:10:10

不太适合我喔，楼主能否帮忙按照附图的说明写一个沉孔的自动注解程序。
谢谢！！

l982414603 · 发表于 2021-12-16 00:00:55

不太适合我喔，楼主能否帮忙按照附图的说明写一个沉孔的自动注解程序。
谢谢！！

gzsod · 发表于 2022-5-12 13:31:03

可以啊 6666

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

[源码] 分享一个标注沉孔的小程序，请大家多多指教。

本帖子中包含更多资源

相关帖子

点评

本帖子中包含更多资源