设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 求批量在圆心插入图块的lsp！
返回列表 发新帖
查看: 1825|回复: 8

[求助] 求批量在圆心插入图块的lsp！

[复制链接]
生命练习生
发表于 2019-4-13 15:14:05 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
我有这样一个需求，不考虑圆的直径大小，不考虑块的大小， 可以把图块批量填充到选择好的圆形圆心！！！求大神指教！！万分感谢！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2019-4-13 22:20:09 | 显示全部楼层
请不要在 每日插件论坛 发布 求助帖子，帮你移动了。

你的问题，你要先建立圆的选择集，然后遍历，找到圆心，insert插入
  1. (defun c:tt()
  2.    (if (setq ss (ssget '((0 . "circle"))))
  3.       (progn
  4.           (setq i -1)
  5.           (repeat (sslength ss)
  6.               (setq e (ssname ss (setq i (1+ i)))
  7.                       cen (cdr (assoc 10 (entget e))))
  8.               (command "insert" "你的块名" cen "" "" "")
  9.           )
  10.        )
  11.    )
  12.    (princ)
  13. )

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 1 反对 0

使用道具 举报

sicky111

已领礼包: 6468个

财富等级: 富甲天下
发表于 2019-4-15 00:03:56 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
版主热心助人。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

evayleung

已领礼包: 2236个

财富等级: 金玉满堂
发表于 2019-4-15 10:07:08 | 显示全部楼层
不懂什么叫做填充到圆心，圆心是一个点，不能填充的吧。建议有求助时，要先把自己的要求想清楚，我国文字博大精深的，多一字 少一字，都会有不同理解的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

生命练习生
 楼主| 发表于 2019-5-29 16:04:45 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
newer 发表于 2019-4-13 22:20
请不要在 每日插件论坛 发布 求助帖子，帮你移动了。

你的问题，你要先建立圆的选择集，然后遍历，找到 ...

感谢您回复！您说的 “然后遍历”是什么意思？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Yruz

已领礼包: 13个

财富等级: 恭喜发财
发表于 2019-5-29 20:19:11 | 显示全部楼层
获取圆心坐标，然后插入，是这么个意思吧
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lslsq

已领礼包: 10个

财富等级: 恭喜发财
发表于 2019-6-1 17:20:06 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
也曾有过这个想法，当需要循环插入很多块的时候挺麻烦的，论坛里面得到一些帮助改了个，希望对你有用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lslsq

已领礼包: 10个

财富等级: 恭喜发财
发表于 2019-6-1 17:21:13 | 显示全部楼层
lslsq 发表于 2019-6-1 17:20
也曾有过这个想法，当需要循环插入很多块的时候挺麻烦的，论坛里面得到一些帮助改了个，希望对你有用。
  2. (defun c:SF4X( / DAZ SS I E CEN oldlayer msg oldYDN kuai SS1)
  3.         (command "undo" "be" )
  4.         (defun *error* (msg)  
  5.                 (setvar "DYNMODE" oldYDN)
  6.                 (setvar "clayer" oldlayer)
  7.                 (princ "error")
  8.                 (princ MSG)
  9.                 (princ)
  10.         )
  11.         (setq oldlayer (getvar "clayer"))
  12.         (setq oldYDN (getvar "DYNMODE"))
  13.         (setvar "DYNMODE" 3)
  14.         (setvar "clayer" "NOZZLE")
  15.   (initget 8 "SFS06-C4 SFS08-C4 SFS10-C4 SFS14-C4 SFS18-C4 SFT06-C4 SFT08-C4 SFT10-C4 SFT14-C4 SFT18-C4") ; 改为自己需要用的图块即可
  16.   (setq dx (getkword"\n选择规格\n点右键或空格则重复上一次选择: [(SFS06-C4)/(SFS08-C4)/(SFS10-C4)/(SFS14-C4)/(SFS18-C4)/---分割线勿选---/(SFT06-C4)/(SFT08-C4)/(SFT10-C4)/(SFT14-C4)/(SFT18-C4)]"))
  17.   (if (= dx nil) (setq dx dxA$C699E578841))
  18.         (prompt "请选择进点标记圆")
  19.         (setq SS1 (ssadd))
  20.         (if (setq ss (ssget '((0 . "circle")(8 . "Entry point")))) ;为了防止误选只能选择Entry point图层内的圆心作为插入点
  21.                 (progn
  22.                         (setq i -1)
  23.                         (repeat (sslength ss)
  24.                                 (setq e (ssname ss (setq i (1+ i)))
  25.                                         cen (cdr (assoc 10 (entget e))))
  26.                                 (SETQ cen (trans CEN 0 1))
  27.                                 (VL-CMDF "-insert" dx CEN 1 ""  PAUSE)
  28.                                 (ssadd  (entlast ) ss1)
  29.                         )
  30.                 )
  31.                 (alert "选择对象有误，请选择进点标记圆")
  32.         )
  33.         (initget 4 "Y N")
  34.   (setq kuai (getkword"\n是否制作为块默认Y: [Y/N]"))
  35.         (if (= (OR (= kuai "Y") (= kuai NIL)) T)
  36.                 (progn
  37.                         (vl-cmdf "_block" (rtos (* (getvar "cdate") 1000000) 2 0) '(0.0  0.0 0.0) ss1 "")
  38.                         (vl-cmdf "_insert" (rtos (* (getvar "cdate") 1000000) 2 0) '(0.0  0.0 0.0) "" "" "")
  39.                 )
  40.         )
  41.         (setvar "clayer" oldlayer)
  42.         (setvar "DYNMODE" oldYDN)
  43.         (command "undo" "e" )
  44.         (princ)
  45. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

卓勇胜-李勇慧
发表于 2019-12-24 20:31:05 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
谢谢,这个对我有用tt命令
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-15 03:55 , Processed in 0.172820 second(s), 44 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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