pengl86 发表于 2019-1-21 13:46:09

liunian0524 发表于 2019-1-21 10:26


大佬您这个能否资源共享下哈，:D

yoyoho 发表于 2019-1-21 20:55:16

谢谢! nyistjz 分享程序!!!!!

yaokui25 发表于 2019-1-21 23:06:23

pengl86 发表于 2019-1-21 13:46
大佬您这个能否资源共享下哈，

那是CAD自带的命令

yaokui25 发表于 2019-1-21 23:15:32

nyistjz 发表于 2019-1-20 22:11
如附件，请查收，可以实现你的要求功能。

朋友你好
代码中好想缺少函数 fsxm-setendxf，方便的话可否上传一下。

yoyoho 发表于 2019-1-21 23:44:45

;;设定物件dxf码
(defun fsxm-setendxf (en dxf var / date old)
(if (listp en) (setq date en) (setq date (entget en)))
(if (atom dxf) (setq dxf (list (cons dxf var))))
(foreach tt dxf
    (setq dxf (car tt))
    (setq var (cdr tt))
    (setq date (if (setq old (assoc dxf date))
   (subst (cons dxf var) (assoc dxf date) date)
   (append date (list (cons dxf var)))
      )
    )
)
(entmod date)
)

ysq101 发表于 2019-1-22 01:22:43

baitang36 发表于 2019-1-21 09:10
作者所犯的错误是提示“测试版到期,请下载后续完整版”，有了这个关键字符串，就有了可乘之机，就可以找到 ...

原来破解真的是为了更好的防破解？？
技术帝真给力

PS（看看我自己只用COMMAND写的代码，算了！！哈哈）

yaokui25 发表于 2019-1-22 05:05:40

yoyoho 发表于 2019-1-21 23:44
;;设定物件dxf码
(defun fsxm-setendxf (en dxf var / date old)
(if (listp en) (setq date en) (setq ...

谢谢! yoyoho 分享程序!!!!!

yaokui25 发表于 2019-1-22 06:18:25

yoyoho 发表于 2019-1-21 20:55
谢谢! nyistjz 分享程序!!!!!

yoyouho 你好
3楼的这段源程序不知道你那里是否能执行?
我把 fsxm-setendxf 加了进去仍然提示我 VLA-OBJECT nil

baitang36 发表于 2019-1-22 07:55:56

ysq101 发表于 2019-1-22 01:22
原来破解真的是为了更好的防破解？？
技术帝真给力



当然，要不研究破解做什么？自己又不想靠破解赚钱。
靠加密赚钱心安理得，破解赚钱有点那个吧？

xyp1964 发表于 2019-1-22 09:00:29


;; 利用dxf 60码的0或1值实现隐藏和显示简简单单
;; hh001(选择隐藏)
(defun c:hh001 (/ ss)
(if (progn (princ "\n选择要隐藏的实体...") (setq ss (ssget)))
    (xyp-SubUpd ss 60 1)
)
(princ)
)
页: 1 [2] 3
查看完整版本: 反隐藏，隐藏切换