明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 5293|回复: 22

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

  [复制链接]
发表于 2012-4-1 10:22:29 | 显示全部楼层 |阅读模式
本帖最后由 xingyun300 于 2012-4-3 09:07 编辑

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

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





本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2012-4-4 08:41:22 | 显示全部楼层
没有帮忙呀!!
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2012-4-1 10:32:44 | 显示全部楼层
本帖最后由 xingyun300 于 2012-4-1 10:37 编辑

操,找不到悬赏按钮呢!算了
发表于 2012-4-1 11:42:08 | 显示全部楼层
修改其中 的写文字那句 为 princ
 楼主| 发表于 2012-4-1 11:57:58 | 显示全部楼层
高手能帮我改改不,我不会改呀
发表于 2012-4-1 12:40:54 | 显示全部楼层
帮你顶顶///
 楼主| 发表于 2012-4-1 21:23:24 | 显示全部楼层
谢谢你帮我顶!!!!
发表于 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)
)
 楼主| 发表于 2012-4-2 09:10:22 | 显示全部楼层
哥们,不行呀!有错误!再说也没有达到我想要的效果呀!帮忙再看看呗
发表于 2012-4-4 08:54:46 | 显示全部楼层
(command "text" jd "" jieguo "" "")
==>
(command "text" "M" jd 90 "" jieguo)
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-23 11:21 , Processed in 0.212359 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表