[求助]求助板块自动编号

longer1000

求助能够批量将正方形的长边和短边用文字标注在相应的长方形上面。

邮箱longer1000@sina.com.cn

地美橄榄树

linheyuanpcb 发表于 2009-2-28 10:29
(defun c:nn()(setq old (getvar "osmode"))(setvar "osmode" 0)(vl-load-com)(if (= nil (tblsearch "styl ...

把你这个命令做成LSP后，加载了，要输入什么命令来使用啊？请指教，多谢了

地美橄榄树

linheyuanpcb 发表于 2009-2-28 10:29
(defun c:nn()(setq old (getvar "osmode"))(setvar "osmode" 0)(vl-load-com)(if (= nil (tblsearch "styl ...

这个要怎么使用啊？谢谢

linheyuanpcb

地美橄榄树 发表于 2020-4-16 14:26
把你这个命令做成LSP后，加载了，要输入什么命令来使用啊？请指教，多谢了

nn

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 1 才可浏览，你当前发帖数只有 0

linheyuanpcb

能不能做到文字自动避让啊,就是不要让它们有重叠在一起?谢谢

longer1000

非常感谢ZZXXQQ版主，我在好多论坛上发过这样的帖子，但不知道是没有挑战性还是不值得--都没有回音，在此再次表示感谢。

另版主能否将标注改为用文字标注，格式为长度*宽度。

linheyuanpcb

(defun c:nn()
(setq old (getvar "osmode"))
(setvar "osmode" 0)
(vl-load-com)

(if (= nil (tblsearch "style" "文字标注"))
(command "-style" "文字标注" "txt" 2 0.8 0 "n" "n" "n")
(command "-style" "文字标注" "txt" 2 0.8 0 "n" "n" "n")
)


(setq p1 (getpoint "\n 请选择窗口的第1点:"))

(setq p2 (getcorner p1 "\n 请选择窗口的第2点:"))

(setq ss (ssget "w" P1 P2 '((0 . "LWPOLYLINE,region,Line"))))


(setq len (sslength ss))
(setq n 0)


(repeat len
(setq ent (ssname ss n))
(setq obj (vlax-ename->vla-object ent))
  (vla-GetBoundingBox obj 'pta 'ptb)

(SETQ a (trans (vlax-safearray->list pta) 0 1))
(SETQ b (trans (vlax-safearray->list ptb) 0 1))
(setq jd (polar a (angle a b) (/ (distance a b) 2)))

(setq xzhi (abs (-(car a) (car b))))
(setq yzhi (abs (- (cadr a) (cadr b))))
(setq chicunx (rtos xzhi 2 2))
(setq chicuny (rtos yzhi 2 2))
(setq jieguo (strcat chicunx "X" chicuny))

(command "text" jd "" jieguo "" "")
(setq n (+ 1 n))
)

(setvar "osmode" old)
(princ)
)

linheyuanpcb

试试上面的程序,看下是不是你要的效果

longer1000

明经这个平台上的高手真多，正是我想要的，非常感谢linheyuanpcb、ZZXXQQ版主以及所有关注的朋友。

linheyuanpcb交个朋友好不？我QQ64400732

linheyuanpcb

longer1000 你好,程序只是我共享下,呵^^源程序并不是我本人所写

 我们感谢原作者就好了,呵^^^

longer1000

呵呵，好的