提取矩形的长度和宽度程序-求助高手

xingyun300 · 发表于 2012-4-1 10:22:29

本帖最后由 xingyun300 于 2012-4-3 09:07 编辑

能不能帮我改改，目前这个程度把长宽显示在命令行里，能不能把它修改为写在工作界面里！书写格式为长(mm)x宽（mm）

最写字体高度为80到90都行，能设置小数点的位数！

xingyun300 · 发表于 2012-4-4 08:41:22

没有帮忙呀！！

xingyun300 · 发表于 2012-4-1 10:32:44

本帖最后由 xingyun300 于 2012-4-1 10:37 编辑

操，找不到悬赏按钮呢！算了

e2002 · 发表于 2012-4-1 11:42:08

修改其中的写文字那句为 princ

xingyun300 · 发表于 2012-4-1 11:57:58

高手能帮我改改不，我不会改呀

flytoday · 发表于 2012-4-1 12:40:54

帮你顶顶///

xingyun300 · 发表于 2012-4-1 21:23:24

谢谢你帮我顶！！！！

linheyuanpcb · 发表于 2012-4-2 08:53:04

(vl-load-com)
(defun c:nn()
(setq old (getvar "osmode"))
(setvar "osmode" 0)
(setq p1 (getpoint "\n ONE POINT:"))
(setq p2 (getcorner p1 "\n TOW POINT:"))
(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)
)

xingyun300 · 发表于 2012-4-2 09:10:22

哥们，不行呀！有错误！再说也没有达到我想要的效果呀！帮忙再看看呗

ZZXXQQ · 发表于 2012-4-4 08:54:46

(command "text" jd "" jieguo "" "")
==>
(command "text" "M" jd 90 "" jieguo)

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

提取矩形的长度和宽度程序-求助高手

本帖子中包含更多资源

相关帖子