我的程度只能这样了
有个思路 但是我写不出来了
以钻孔孔径为过滤条件，再以孔径圆心扩大选区（把最近的直线选到取中）并建立独立的选择集，再以直线中心扩大选区（把直线附近文字选中，过滤出与直线平行并最近的2个文字）加入相应的选择集，每个选择集以相应的钻孔孔径为插入点建块，然后就是每个块缩放
过滤出与直线平行并最近的2个文字----------这个我搞不定
这样只是出错机率小 也不是很完美
taoyi0727 发表于 2018-9-3 08:59
我的程度只能这样了
有个思路 但是我写不出来了
我觉得还是退而求其次吧先把钻孔的原位缩放搞定 至于钻孔编号（文字和线）的原位缩放 就可以用G版的 但是弊端就是 到时候文字可能还得一个一个稍微挪一下位置不然会距离钻孔偏远
其实是2条出路
1 学一点 就能自己调整条件
2 整理好所有的条件
要不然做出来一点 还有其他要求 其实挺累人的
张大锤 发表于 2018-9-3 17:07
其实是2条出路
1 学一点 就能自己调整条件
2 整理好所有的条件
确实 由于没办法当面交流 很多需求没达到要求 也是在试代码的过程中发现的恩 得多沟通交流 辛苦各位的好心了
依样例分析...
(command "Select"
(ssget '((0 . "CIRCLE") (-4 . "<") (40 . 1.625)))
"R"
(ssget "P" '((0 . "CIRCLE") (-4 . "<") (40 . 1.)))
""
)
这段的用意是排除同心圆会有两个圆心的复算情况
(不计小圆圆心)
依然小小鸟 发表于 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 其实挺好学的 建议你 学一学 我也是个初学者 在明经起步到现在 初入茅庐 从初级会员到中级会员 基本都是问问题发帖 涨起来的 热心的人还是蛮多的