求助简化填充

xj6019

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

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

999999

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

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

xj6019

(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

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

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

999999

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

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

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

xj6019

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

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

sunny_8848

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

可以了，谢谢

xiaoshm1981

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

陈伟

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

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