求大神改下这个查字画圆，改为查相同图块画圆

664571221 · 发表于 2023-7-28 20:48:22

xyp1964 发表于 2023-7-28 18:59

派大能不能放入你好123 这个图层，如果没有就新建这个图层，还有能不能把圆的线变粗线

嘒彼小星 · 发表于 2023-7-29 10:02:20

本帖最后由嘒彼小星于 2023-7-29 10:07 编辑

664571221 发表于 2023-7-28 20:47
大哥能不能放入放入你好123 这个图层，如果没有就新建这个图层，还有能不能把圆的线变粗线

在院长的代码基础上，子程序后，if前。加代码，
(setq layer_tc (tblsearch "layer" "你好123"))
(if (= layer_tc nil)(command "-LAYER" "n" "你好123" ""))
(command "LAYER" "S" "你好123" "")
然后循环里面的圆的命令改为
(command "PLINE" "non" p1 "w" "5" "5" "A" "A" "180" "non" p2 "CL")
上面这两个5 根据你需要的线的粗细来更改为别的数值。

完整的就像下面这样：

(defun c:iy ()
(defun mimx (s1 / p1 p9)
(vla-getboundingbox (vlax-ename->vla-object s1) 'p1 'p9)
(list (vlax-safearray->list p1) (vlax-safearray->list p9))
)
(setq layer_tc (tblsearch "layer" "你好123"))
(if (= layer_tc nil)(command "-LAYER" "n" "你好123" ""))
(command "LAYER" "S" "你好123" "")
(if (and (setq s1 (car (entsel "\n选择图块: ")))
(= (cdr (assoc 0 (entget s1))) "INSERT")
(setq bk (cdr (assoc 2 (entget s1))))
(setq ss (ssget "x" (list (cons 2 bk))))
)
(progn
(setq i -1)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq ptn (mimx s1)
p1 (car ptn)
p2 (cadr ptn)
)
(command "PLINE" "non" p1 "w" "5" "5" "A" "A" "180" "non" p2 "CL")
)
)
)
(princ)
)

ssyfeng · 发表于 2023-7-29 11:15:12

增加了图层和线宽：

664571221 · 发表于 2023-7-29 15:19:27

ssyfeng 发表于 2023-7-29 11:15
增加了图层和线宽：

谢谢兄弟，兄弟你图块好多啊。

664571221 · 发表于 2023-7-29 15:20:46

嘒彼小星发表于 2023-7-29 10:02
在院长的代码基础上，子程序后，if前。加代码，
(setq layer_tc (tblsearch "layer" "你好123"))
(if ( ...

谢谢小星，你就是重庆小星吗

戏男 · 发表于 2023-8-1 18:24:23

ssyfeng 发表于 2023-7-29 11:15
增加了图层和线宽：

我用着怎么画的圆不是加粗的呀？

ssyfeng · 发表于 2023-8-1 21:32:04

你要把线宽显示打开

664571221 · 发表于 2023-8-1 22:31:41

戏男发表于 2023-8-1 18:24
我用着怎么画的圆不是加粗的呀？

兄弟你是啥行业呢

戏男 · 发表于 2023-8-2 09:19:03

664571221 发表于 2023-8-1 22:31
兄弟你是啥行业呢

塑胶模具的

戏男 · 发表于 2023-8-2 15:14:48

ssyfeng 发表于 2023-8-1 21:32
你要把线宽显示打开

可以，是忘了打开线宽，能不能改一个画红线差，也有线宽显示，象这样的

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

[提问] 求大神改下这个查字画圆，改为查相同图块画圆

本帖子中包含更多资源

本帖子中包含更多资源