wimal 发表于 2022-7-5 15:13:07

更改圆形块的比例

在此附着的图形中，网格气泡是块。插入点不在中心
在街区中。通过选择一个窗口，我需要在不从气泡中心移动的情况下更改网格气泡的比例。它可以通过LISP实现。但困难的是找到网格泡泡的中心点。请你帮我赢得这个任务。
测试11.dwg

dlanorh 发表于 2022-7-5 15:20:50

请附上2010年格式的文件，因为我无法打开附件

wimal 发表于 2022-7-5 15:30:27

以2010年格式附上
测试12.dwg

Tharwat 发表于 2022-7-5 15:31:16


(defun c:test (/ scl int sel ent obj lft rgt)
(and (setq scl (getdist "\nSpecify scale factor :"))
      (setq int -1
            sel (ssget "_:L" '((0 . "INSERT") (2 . "test")))
      )
      (while (setq ent (ssname sel (setq int (1+ int))))
      (vla-getboundingbox
          (setq obj (vlax-ename->vla-object ent))
          'lft
          'rgt
      )
      (vlax-invoke
          obj
          'scaleentity
          (mapcar '(lambda (q p) (/ (+ q p) 2.0))
                  (vlax-safearray->list lft)
                  (vlax-safearray->list rgt)
          )
          scl
      )
      )
)
(princ)
) (vl-load-com)

rlx 发表于 2022-7-5 15:42:19

 
 
引用上一个帖子：slick coding Tharwat（as allways）
 
 
只是想知道，为什么要把插入点放在这样一个奇怪的地方？？？导入错误？也许最好把积木修好？

Tharwat 发表于 2022-7-5 15:48:43

非常感谢。
 
完全同意你的观点，几周前，我对AutoCAD绘图人员进行了多次采访，他们都不知道除了收集对象之外，AutoCAD块还有什么用处，因此与其他绘图人员相比，将插入点放在错误的位置是一种额外的好处大声笑：
 
对不起，这是离题。

rlx 发表于 2022-7-5 15:49:15

 
 
最终，客户并不真正关心“引擎盖”下发生了什么，只要硬拷贝看起来不错，所以有时很难解释所需的技能。

BIGAL 发表于 2022-7-5 15:59:03

这是第2部分吗http://www.cadtutor.net/forum/showthread.php?104211-在块内圈
 
对我来说，我会重做块中心点，然后选择块，新的比例，选择线，这样它会移动块和重新缩放。检查中心到终点将给出方向，使用上面的post拉动圆rad。这是第三部分吗？
 
这取决于我会欺骗多少人，并使用这个pt-num泡泡擦除旧的泡泡并生成新的泡泡。
getval。lsp
pt num气泡。lsp

wimal 发表于 2022-7-5 16:03:32

 
谢谢这就是我所排除的代码。我自己无事可做。

wimal 发表于 2022-7-5 16:09:39

确切地我为修女完成的每一件事都是网格泡泡。但当我发现这种奇怪的障碍时，我无法继续。谢谢你的建议。
页: [1] 2
查看完整版本: 更改圆形块的比例