求助简化填充

xj6019 · 发表于 2020-11-18 16:20:04

999999 发表于 2020-11-18 15:01
您可以帮忙改一下吗？我这边只能实现框选就结束了，就是：输入命令、选择对象（默认是框选）没有选择对象 ...

真不好意思，我试着改了两次，也没成功，抱歉，水平欠缺了，我上面的代码也是别人代码只改了一点点，也不是我自己写的

999999 · 发表于 2020-11-18 16:33:53

xj6019 发表于 2020-11-18 16:20
真不好意思，我试着改了两次，也没成功，抱歉，水平欠缺了，我上面的代码也是别人代码只改了一点点，也不 ...

没事没事，，心意到了就好，，加油，，

xj6019 · 发表于 2020-11-18 21:54:16

本帖最后由 xj6019 于 2020-11-18 22:00 编辑

(defun c:H8 (/ opt )
(setvar "measurement" 1)
(setvar "cmdecho" 0)
(setq oldlay (getvar "CLAYER"))
   (setq oldhpname (getvar "HPNAME"))
   (command "-layer" "m" "layer3"  "")
(command "bhatch" "P"  "" "100" "0" "")
(if (setq ss (ssget))
  (command "bhatch" "s" ss "" "")
(progn
  (prompt "\n拾取填充点：\n")
  (command "bhatch" pause)
  (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
))
(command "color" oldcolor)
(princ)
)

xj6019 · 发表于 2020-11-18 22:02:35

999999 发表于 2020-11-18 16:33
没事没事，，心意到了就好，，加油，，

试了一下，应该可以了吧，其他的图层啥的或者种类啥的，你自己再按自己习惯搞一下，毕竟每个人习惯和用法不同

999999 · 发表于 2020-11-18 22:37:35

xj6019 发表于 2020-11-18 22:02
试了一下，应该可以了吧，其他的图层啥的或者种类啥的，你自己再按自己习惯搞一下，毕竟每个人习惯和用法 ...

可以了哟，结合了一下，是我想要的呢，谢谢啦
(defun c:H8 (/ opt )
(setvar "measurement" 1) ; 设置公制单位
(setvar "cmdecho" 0)    ; 关闭命令响应
(setq oldlay (getvar "CLAYER"))  ;把目前的图层记忆起来
   (setq oldhpname (getvar "HPNAME"))    ;把目前的填充记忆起来
   (command "-layer" "m" "layer3"  "")
(command "bhatch" "p" "u" "" "600" "Y" qw "")
(if (setq ss (ssget))
  (command "bhatch" "s" ss "" "") ;如果选择集不为空，则执行对象填充
(progn  ;如果选择集为空，则执行点选命令
  (prompt "\n拾取填充点：\n")
  (command "bhatch" pause)
  (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
))
(setvar "HPNAME" oldhpname)  ;把刚刚记忆起来的填充变成目前的填充
(setvar "clayer" oldlay)  ;把刚刚记忆起来的图层变成目前的图层
(princ)
)

sunny_8848 · 发表于 2020-11-21 10:38:39

xj6019 发表于 2020-11-16 10:27
(defun c:TC (/ opt )
(setvar "measurement" 1) ; 设置公制单位
(setvar "cmdecho" 0) ...

请教，如果默认选择②怎么改下呢

xj6019 · 发表于 2020-11-21 10:49:04

sunny_8848 发表于 2020-11-21 10:38
请教，如果默认选择②怎么改下呢

直接把名字和子函数名字对调一下就行吧

sunny_8848 · 发表于 2020-11-21 18:53:58

本帖最后由 sunny_8848 于 2020-11-21 19:21 编辑

xj6019 发表于 2020-11-21 10:49
直接把名字和子函数名字对调一下就行吧

可以了，谢谢

xiaoshm1981 · 发表于 2020-11-22 14:15:15

老师您好！可以帮我写一个LSP的代码吗？
我需要打指令：JX——》选单行文字——》
例：我有一行字符串，“M :25-M5(下模螺丝,攻穿)(M5沉头9.0x7.0深)”
我需要用程式提取前面数字25，然后用数字乘以一个数字然后再做乘积应该怎么写，我需要的结果如下：
M :25-M5(下模螺丝,攻穿)(M5沉头9.0x7.0深) 25*2=50
感激不尽！！！

陈伟 · 发表于 2021-9-2 10:46:29

本帖最后由陈伟于 2021-9-2 10:47 编辑

xj6019 发表于 2020-11-16 10:27
(defun c:TC (/ opt )
(setvar "measurement" 1) ; 设置公制单位
(setvar "cmdecho" 0) ...

填充图案用 SOLID 在点选的时候会出问题（如果上次点选填充了，再次填充的时候会第一时间选择上一次填充的范围并完成填充），其他图案没问题

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

[提问] 求助简化填充