块增加对象

自贡黄明儒 · 发表于 2015-6-14 14:19

本帖最后由自贡黄明儒于 2015-6-26 12:35 编辑

;;块增加对象，我以往用Mac Lee的那个程序，但存在一个问题，增加对象后，框选增加的对象时，选择不到块。
;;于是我全用command写了一个差不多的程序（也是不可靠的东西），发在晓东上。由于是QQ登录的，这几天晓东上不去了。
;;，那么纯lisp能不能写成呢？是否从http://bbs.mjtd.com/thread-168469-1-1.html看到希望了呢？
实践证明，是可能的
如果增加的wipeout对象，则实现“块背景遮罩”

香远益清 · 发表于 2020-2-17 17:08

LEE-MAC确实太厉害了

jpld2001 · 发表于 2017-12-22 21:33

真是好帖。值得学习

疯球 · 发表于 2018-5-30 20:23

回复，学习学习！

自贡黄明儒 · 发表于 2015-6-14 14:23

这里贴上发在晓东论坛上的土办法
(defun C:w1 (/ E SS)
  (setq e (Fsxm-entsel "选择块" '((0 . "INSERT"))))
  (princ "\n选择块内要增加的图元")
  (setvar "nomutt" 1)
  (setq ss (ssget))
  (setvar "nomutt" 0)
  (command "._copybase" "_non" (cadr e) ss "")
  ;|(setvar "PICKFIRST" 1)
  (sssetfirst NIL (ssadd (car SS)))
  (command "-refedit" "o" "A" "y")|;
  (command "_.refedit" (cadr e) "o" "a" "n")
  (command "_.pasteclip" "_non" (cadr e))
  (command "_.refclose" "S")
  (command "._erase" ss "")
  (princ)
)

zgzzsn · 发表于 2015-6-14 14:43

贴上发在晓东论坛上的土办法

bai2000 · 发表于 2015-6-14 15:25

贴上发在晓东论坛上lisp

wzg356 · 发表于 2015-6-14 15:45

老黄专研精神可嘉

baoxiaozhong · 发表于 2015-6-14 15:45

回覆看看源碼。

grs432 · 发表于 2015-6-14 17:02

谢谢分享了呀！！！

峰峰兒 · 发表于 2015-6-15 07:47

提示: 作者被禁止或删除内容自动屏蔽

USER2128 · 发表于 2015-6-15 07:59

回复，学习学习！

伪书虫86 · 发表于 2015-6-15 08:01

这里贴上发在晓东论坛上的土办法

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

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	发表于 2015-6-15 07:47 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

[讨论] 块增加对象