999999 发表于 2020-11-18 15:01
您可以帮忙改一下吗？我这边只能实现框选就结束了，就是：输入命令、选择对象（默认是框选）没有选择对象 ...
真不好意思，我试着改了两次，也没成功，抱歉，水平欠缺了，我上面的代码也是别人代码只改了一点点，也不是我自己写的
xj6019 发表于 2020-11-18 16:20
真不好意思，我试着改了两次，也没成功，抱歉，水平欠缺了，我上面的代码也是别人代码只改了一点点，也不 ...
没事没事，，心意到了就好，，加油，，
本帖最后由 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)
)
999999 发表于 2020-11-18 16:33
没事没事，，心意到了就好，，加油，，
试了一下，应该可以了吧，其他的图层啥的或者种类啥的，你自己再按自己习惯搞一下，毕竟每个人习惯和用法不同
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)
)
xj6019 发表于 2020-11-16 10:27
(defun c:TC (/ opt )
(setvar "measurement" 1) ; 设置公制单位
(setvar "cmdecho" 0) ...
请教，如果默认选择②怎么改下呢
sunny_8848 发表于 2020-11-21 10:38
请教，如果默认选择②怎么改下呢
直接把名字和子函数名字对调一下就行吧
本帖最后由 sunny_8848 于 2020-11-21 19:21 编辑
xj6019 发表于 2020-11-21 10:49
直接把名字和子函数名字对调一下就行吧可以了，谢谢
老师您好！可以帮我写一个LSP的代码吗？
我需要打指令：JX——》选单行文字——》
例：我有一行字符串，“M:25-M5(下模螺丝,攻穿)(M5沉头9.0x7.0深)”
我需要用程式提取前面数字25，然后用数字乘以一个数字然后再做乘积应该怎么写，我需要的结果如下：
M:25-M5(下模螺丝,攻穿)(M5沉头9.0x7.0深) 25*2=50
感激不尽！！！
本帖最后由 陈伟 于 2021-9-2 10:47 编辑
xj6019 发表于 2020-11-16 10:27
(defun c:TC (/ opt )
(setvar "measurement" 1) ; 设置公制单位
(setvar "cmdecho" 0) ...
填充图案用SOLID 在点选的时候会出问题（如果上次点选填充了，再次填充的时候会第一时间选择上一次填充的范围并完成填充），其他图案没问题