悬之又玄的几个问题--弹一曲《笑傲江湖》,叹一声《知音难觅》

自贡黄明儒 · 发表于 2012-8-22 15:13

本帖最后由自贡黄明儒于 2012-11-23 10:29 编辑

;;1 是不是可以不动用注册表,设置一个自己的变量?
;; 如果是这样,比使用注册表操作函数简单多了

(if (null (getenv "LMac\\ABBRotation"))
(setenv "LMac\\ABBRotation" "ON")
)

;;2 (startapp (findfile "EduPlotStamp.exe"))如果写成(startapp "EduPlotStamp.exe")在有些机器上是不能运行的
;; 尽管肯定是在支持目录下.

;;3 Vlisp编辑器在输出局部变量时,不认识pause为系统自己的保留字,会把它当作局部变量

;;4 选择集相减
;;ss1 ss2选择相同的东西

(setq ss1 (ssget))
(setq ss2 (ssget))
(equal ss1 ss2) ;返回nil
(command "._Select" ss1 "_Remove" ss2 "")
(sslength (setq ss (ssget "_P"))) ;ss 不为空看来用Select的方法相减还是件麻烦的事

;;看来还是用下面的方法可靠些

;;(setq ss1 (ssget)) (setq ss2 (ssget))
;;***********************功能选择集相减
;;返回选择集 or nil
;;(setq ss1 (ssget)) (setq ss2 (ssget))
(defun C:SS_Sub (SS1 SS2 / ENAME SS SSTEMP)
(cond ((and (equal (type ss1) 'PICKSET)
(equal (type ss1) 'PICKSET)
)
(cond ((equal (sslength ss1) (sslength ss2))
(vl-cmdf "_.select" ss1 "")
(setq ss (ssget "p"))
(vl-cmdf "_.select" ss2 "")
(setq ssTemp (ssget "p"))
(repeat (sslength ssTemp)
(Setq ENAME (SsName ssTemp 0))
(SsDel ENAME ssTemp)
(if (ssmemb ENAME ss)
(SsDel ENAME SS)
)
)
(if (equal (sslength ss) 0)
nil
ss
)
)
(T
(command "._Select" ss1 "_Remove" ss2 "")
(ssget "_P")
)
)
)
((and (equal (type ss1) 'PICKSET)
(not (equal (type ss2) 'PICKSET))
)
ss1
)
(T nil)
)
)
;;自贡黄明儒2012.8.23
;;***********************功能选择集相减

;;(setq ss1 (ssget)) (setq ss2 (ssget)) 
;;***********************功能 选择集相减 
;;返回 选择集 or nil 
;;(setq ss1 (ssget)) (setq ss2 (ssget)) 
(defun C:SS_Sub (SS1 SS2 / ENAME SS SSTEMP) 
  (cond ((and (equal (type ss1) 'PICKSET) 
       (equal (type ss1) 'PICKSET) 
  ) 
  (cond ((equal (sslength ss1) (sslength ss2)) 
  (vl-cmdf "_.select" ss1 "") 
  (setq ss (ssget "p")) 
  (vl-cmdf "_.select" ss2 "") 
  (setq ssTemp (ssget "p")) 
  (repeat (sslength ssTemp) 
    (Setq ENAME (SsName ssTemp 0)) 
    (SsDel ENAME ssTemp) 
    (if (ssmemb ENAME ss) 
      (SsDel ENAME SS) 
    ) 
  ) 
  (if (equal (sslength ss) 0) 
    nil 
    ss 
  ) 
        ) 
        (T 
  (command "._Select" ss1 "_Remove" ss2 "") 
  (ssget "_P") 
        ) 
  ) 
) 
((and (equal (type ss1) 'PICKSET) 
       (not (equal (type ss2) 'PICKSET)) 
  ) 
  ss1 
) 
(T nil) 
  ) 
) 
;;自贡黄明儒2012.8.23 
;;***********************功能 选择集相减

;;5 自定义了acad.lsp,有些cad并不加载它，这是为什么呢？难道是电脑智能，怕了acad.lsp病毒，挥刀自宫了？

自贡黄明儒 · 发表于 2012-8-27 10:46

;;没有人跟贴，我自娱自乐
;;自定义变量保存方法盘点，向各位高手学习
[hide=lisp]
;;1  保存变量到图形文档中
(defun EF:getVar (sVar)
  (cdr
(assoc (strcase sVar) (vlax-ldata-get "EF_Tools" "Var"))
  )
  ;;(vlax-ldata-put "EF_Tools" "EF_InfoList" lst_Info)
)
(defun EF:setVar (sVar value / varlist)
  (if (assoc (setq sVar (strcase sVar))
      (setq varlist (vlax-ldata-get "EF_Tools" "Var"))
   )
(vlax-ldata-put
   "EF_Tools"
   "Var"
   (subst (cons sVar value) (assoc sVar varlist) varlist)
)
(vlax-ldata-put
   "EF_Tools"
   "Var"
   (cons (cons sVar value) varlist)
)
  )
  value
)

;;2 保存变量到注册表
(setq number
   (vl-registry-read
   "HKEY_CURRENT_USER\\software\\TH++"
   "MySetVar"
   )
)
(vl-registry-write
  "HKEY_CURRENT_USER\\software\\TH++"
  "MySetVar"
  varnumber
)
;;3 用系统变量
(if (null (getenv "LMac\\ABBRotation"))
  (setenv "LMac\\ABBRotation" "ON")
)

;;4 users5 highflybird喜欢用这个,可是users5并不随图保存?我郁闷.
;;AutoCAD到底给我们留了多少个这们的变量?

;;5 各文档间使用同一变量,CAD关闭后消失
(vl-propagate 'HH:MyNameis)

[/hide]
;;处理自定义变量，用logand

革天明 · 发表于 2012-8-27 11:23

自定义了acad.lsp,有些cad并不加载它，这是为什么呢？难道是电脑智能，怕了acad.lsp病毒，有了免疫能力？
我现在使用sendkeys，不在使用PGP了，
我觉得要换个角度想一下，我们的程序一是自己用，这时什么都可以调整；二是其它人用，人家根本就不在乎我们使用什么方式来实现命令的加载，所以我使用秋枫的的程序来打包，其它人只用装一遍就行了

自贡黄明儒 · 发表于 2012-8-28 11:24

;;才找到知音二人，G版和革天明，听G版言，我再弹
;;Caoyin那把刷子,看起来爽,用起来爽,但问题1 回车中不断;2 选择集没有排序
;;第一个问题无法解决,可能也只有C版自己才能解决,我试了几次都没有成功
;;第二个问题就简单多了,看下面
;;选择集SS排序

;;;******************************************************选择集SS排序
;;选择集排序在其它地方也是用得着的呀,为什么不能写成通用性函数呢?
;;"D->U"从下到上;"U->D"从上到下;"L->R"从左到右;"R->L"从右到左
;;示例(setq ss (ssget)) (SS_Sort ss "D->U" "L->R")下到上,左到右
;;自贡黄明儒 2012.8.28
(defun SS_Sort (SS Sort1 Sort2 / E LST N PT10)
;;1 [功能] 图元列表->选择集 By caiqs
(defun lst->ss (lst / SS X)
(setq ss (ssadd))
(last (mapcar '(lambda (x) (ssadd x ss)) lst))
)
;;2 表排序
(defun Sort_pList (PLIST Sort1 Sort2 / SYMBOL1 SYMBOL2)
(cond
((member Sort1 (list "L->R" "R->L"))
(cond ((equal Sort1 "L->R") (setq Symbol1 '>))
(T (setq Symbol1 '<))
)
(cond ((equal Sort2 "D->U") (setq Symbol2 '>))
(T (setq Symbol2 '<))
)
(vl-sort
PLIST
'(lambda (p1 p2)
(cond (((eval Symbol1) (car (car p1)) (car (car p2))) T)
((and (= (car (car p1)) (car (car p2)))
((eval Symbol2) (cadr (car p1)) (cadr (car p2)))
)
T
)
)
)
)
)
(T
(cond ((equal Sort1 "D->U") (setq Symbol1 '>))
(T (setq Symbol1 '<))
)
(cond ((equal Sort2 "L->R") (setq Symbol2 '>))
(T (setq Symbol2 '<))
)
(vl-sort
PLIST
'(lambda (p1 p2)
(cond (((eval Symbol1) (cadr (car p1)) (cadr (car p2))) T)
((and (= (cadr (car p1)) (cadr (car p2)))
((eval Symbol2) (car (car p1)) (car (car p2)))
)
T
)
)
)
)
)
)
)
;;3 选择集SS排序主程序
(repeat (setq n (sslength ss))
(setq e (ssname ss (setq n (1- n))))
(setq pt10 (cdr (assoc 10 (entget e))))
(setq lst (cons (cons pt10 e) lst))
)
(setq lst (mapcar 'cdr (Sort_pList lst Sort1 Sort2)))
(lst->ss lst)
)
;;;******************************************************选择集SS排序

;;;******************************************************选择集SS排序 
;;选择集排序在其它地方也是用得着的呀,为什么不能写成通用性函数呢? 
;;"D->U"从下到上;"U->D"从上到下;"L->R"从左到右;"R->L"从右到左 
;;示例(setq ss (ssget)) (SS_Sort ss "D->U" "L->R")下到上,左到右 
;;自贡黄明儒 2012.8.28 
(defun SS_Sort (SS Sort1 Sort2 / E LST N PT10) 
  ;;1 [功能] 图元列表->选择集 By caiqs 
  (defun lst->ss (lst / SS X) 
    (setq ss (ssadd)) 
    (last (mapcar '(lambda (x) (ssadd x ss)) lst)) 
  ) 
  ;;2 表 排序 
  (defun Sort_pList (PLIST Sort1 Sort2 / SYMBOL1 SYMBOL2) 
    (cond 
      ((member Sort1 (list "L->R" "R->L")) 
       (cond ((equal Sort1 "L->R") (setq Symbol1 '>)) 
             (T (setq Symbol1 '<)) 
       ) 
       (cond ((equal Sort2 "D->U") (setq Symbol2 '>)) 
             (T (setq Symbol2 '<)) 
       ) 
       (vl-sort 
         PLIST 
         '(lambda (p1 p2) 
            (cond (((eval Symbol1) (car (car p1)) (car (car p2))) T) 
                  ((and        (= (car (car p1)) (car (car p2))) 
                        ((eval Symbol2) (cadr (car p1)) (cadr (car p2))) 
                   ) 
                   T 
                  ) 
            ) 
          ) 
       ) 
      ) 
      (T 
       (cond ((equal Sort1 "D->U") (setq Symbol1 '>)) 
             (T (setq Symbol1 '<)) 
       ) 
       (cond ((equal Sort2 "L->R") (setq Symbol2 '>)) 
             (T (setq Symbol2 '<)) 
       ) 
       (vl-sort 
         PLIST 
         '(lambda (p1 p2) 
            (cond (((eval Symbol1) (cadr (car p1)) (cadr (car p2))) T) 
                  ((and        (= (cadr (car p1)) (cadr (car p2))) 
                        ((eval Symbol2) (car (car p1)) (car (car p2))) 
                   ) 
                   T 
                  ) 
            ) 
          ) 
       ) 
      ) 
    ) 
  ) 
  ;;3 选择集SS排序 主程序 
  (repeat (setq n (sslength ss)) 
    (setq e (ssname ss (setq n (1- n)))) 
    (setq pt10 (cdr (assoc 10 (entget e)))) 
    (setq lst (cons (cons pt10 e) lst)) 
  )   
  (setq lst (mapcar 'cdr (Sort_pList lst Sort1 Sort2))) 
  (lst->ss lst) 
) 
;;;******************************************************选择集SS排序

ruirui999 · 发表于 2012-11-23 01:32

SS 这个排序有严重问题对镜像过的图元及拷贝的图元排序是错的。

ruirui999 · 发表于 2012-11-23 01:32

俺留下QQ，呵呵，望交流。651884547 。

阿然 · 发表于 2012-11-23 08:39

本帖最后由阿然于 2012-11-23 08:41 编辑

useri1-5是可以随文件保存的，不过不喜欢用这个，不存在唯一性，其他lisp也有可能使用这些变量。

ruirui999 · 发表于 2012-11-23 09:15

自贡黄明儒发表于 2012-8-28 11:24
;;才找到知音二人，G版和革天明，听G版言，我再弹
;;Caoyin那把刷子,看起来爽,用起来爽,但问题1 回车中不断 ...

呵呵，你这个排序俺很喜欢，就是有点瑕疵。希望能改正哇。

328302216 · 发表于 2013-1-3 15:10

这个先留个脚印有用！楼主再来一曲

linshiyin2 · 发表于 2013-4-28 13:15

保存变量，用字典，现在用字典搞搞。不知道还有其他好方法没有

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

悬之又玄的几个问题--弹一曲《笑傲江湖》,叹一声《知音难觅》

评分

本帖被以下淘专辑推荐:

评分

点评

点评

点评