如何原位缩放？？？？

taoyi0727

我的程度只能这样了

有个思路 但是我写不出来了

以钻孔孔径为过滤条件，再以孔径圆心扩大选区（把最近的直线选到取中）并建立独立的选择集，再以直线中心扩大选区（把直线附近文字选中，过滤出与直线平行并最近的2个文字）加入相应的选择集，每个选择集以相应的钻孔孔径为插入点建块，然后就是每个块缩放



过滤出与直线平行并最近的2个文字----------这个我搞不定

taoyi0727

这样只是出错机率小   也不是很完美

依然小小鸟

taoyi0727 发表于 2018-9-3 08:59
我的程度只能这样了

有个思路 但是我写不出来了

我觉得还是退而求其次吧  先把钻孔的原位缩放搞定 至于钻孔编号（文字和线）的原位缩放 就可以用G版的 但是弊端就是 到时候文字可能还得一个一个稍微挪一下位置  不然会距离钻孔偏远

张大锤

其实是2条出路
1 学一点 就能自己调整条件
2 整理好所有的条件
要不然做出来一点 还有其他要求 其实挺累人的

依然小小鸟

张大锤 发表于 2018-9-3 17:07
其实是2条出路
1 学一点 就能自己调整条件
2 整理好所有的条件

确实 由于没办法当面交流 很多需求没达到要求 也是在试代码的过程中发现的  恩 得多沟通交流 辛苦各位的好心了

Andyhon

依样例分析...
   (command "Select"
     (ssget '((0 . "CIRCLE") (-4 . "<") (40 . 1.625)))
     "R"
     (ssget "P" '((0 . "CIRCLE") (-4 . "<") (40 . 1.)))
     ""
   )

这段的用意是排除同心圆会有两个圆心的复算情况
(不计小圆圆心)

smartstar

依然小小鸟 发表于 2018-8-31 19:38
谢谢你的回复 感觉这个代码局限性还是挺大的 一是 圆的半径只能大于1小于2  二是只能缩放0.25  其实我更 ...

源码和提示说明都给你了，你稍微改一下后面的参数就可以了。没有一个程序是万能的。

依然小小鸟

smartstar 发表于 2018-9-4 08:39
源码和提示说明都给你了，你稍微改一下后面的参数就可以了。没有一个程序是万能的。

我对编程0基础 代码也看不懂 最近打算学点

张大锤

依然小小鸟 发表于 2018-9-3 21:30
确实 由于没办法当面交流 很多需求没达到要求 也是在试代码的过程中发现的  恩 得多沟通交流 辛苦各位的 ...

(defun c:123()
(entget (car (entsel)))
)

这是一个简单 很好用的命令
点击你的图形 你可以看到里面的内容 比如(0 . "text")=文字 line 线 pl线  颜色啊 半径啊 都会有所体现
你可以把这个统计一下 这里面有图形的属性信息  可以帮助你 统计你需要的条件 也方便大家帮助你一起想办法

张大锤

依然小小鸟 发表于 2018-9-4 08:47
我对编程0基础 代码也看不懂 最近打算学点

lisp 其实挺好学的 建议你 学一学 我也是个初学者 在明经起步到现在 初入茅庐 从初级会员到中级会员 基本都是问问题发帖 涨起来的 热心的人还是蛮多的