采用vla-offset偏移后将新增对象删除

masterlong

这么多人为啥总喜欢把快捷键和命令或者简写命令混为一谈？

1993063

荒野孤行 发表于 2014-7-9 01:59
从注册表读取快捷键，将快捷键写入到注册表，将快捷键赋予CAD，从CAD获取用户设置的快捷键，所以需要四个 ...

;        (HB_REG blst "tuChengSet" nil) ;设置键值
; (HB_REG blst "tuChengSet" t) ;获得注册表对应值
(defun HB_REG ( lst KeyWz isRead / key Mykey n na rd rel );                (HB_REG "blst" "tuChengSet" nil)
        (setq key   (vlax-product-key)
                                Mykey (strcat "HKEY_CURRENT_USER\\\\" key "\\\\HbSet\\\\" KeyWz)
        )
        (setq n 0)
        (if isRead
                (repeat (length lst)
                        (setq na (nth n lst))
                        (setq rd (VL-REGISTRY-READ Mykey (car na)))
                        (if rd
                                (setq rel (cons (cons (car na) rd) rel))
                                (setq rel (cons na rel))
                        )
                        (setq n (+ n 1))
                )
                (repeat (length lst)
                        (setq na (nth n lst))
                        (VL-REGISTRY-WRITE Mykey (car na) (cdr na))
                        (setq n (+ n 1))
                )
        )
        rel
)

荒野孤行

hao3ren 发表于 2014-7-9 00:55
建议楼主把这部分代码补全为一个完整的程序

嗯，已更新，加入了dcl源码

lidaxiu

这个不是早就有了么，还拿来卖？

荒野孤行

lidaxiu 发表于 2014-7-10 19:51
这个不是早就有了么，还拿来卖？

好吧，我删贴。