发布三领设计V2.0 所集成图库源码

尘缘一生

图库系统初始源码，缘自【 7月信】的程序

在集成使用过程之中，不断改写与完善

头几天看到有人问，双击插入这个问题，三领早已集成做到了，发布下，看着改下即可。





以下是三领设计的，链接安装
链接：https://pan.baidu.com/s/1ZsNPjEZSn3BJ5Hjv7NM9iA
提取码：0u9q

• ;;插入图块-------------------------
•   (defun sl-lib-blockinsert (/ pt)
•     (command "ZOOM" "0.5X")
•     (setq pt (caddr (sl_pm2pt)))
•     (vla-ins-b (cadddr (assoc $sl_libindex $sl_blocklist)) pt $sl_libscalex $sl_libscaley $sl_libscalez $sl_librotate)
•     (command "MOVE" (entlast) "" pt PAUSE)
•     (vla-explode (en2obj (entlast)))
•     (princ)
•   )
  
  • ;;求屏幕（左下角 右上角 中点）-------（一级）------------
  • (defun sl_pm2pt (/ a b c d x)
  •   (setq b (getvar "viewsize")
  •     c (car (getvar "screensize"))
  •     d (cadr (getvar "screensize"))
  •     a (* b (/ c d))
  •     x (trans (getvar "viewctr") 1 2)
  •     c (trans (list (- (car x) (* a 0.5)) (- (cadr x) (* b 0.5)) 0.0) 2 1)
  •     d (trans (list (+ (car x) (* a 0.5)) (+ (cadr x) (* b 0.5)) 0.0) 2 1)
  •     e (sl:mid c d)
  •   )
  •   (list c d e)   ;;c 左下  d 右上 e 中心
  • )
    

• ;;插入图块--------(一级)--------------
• ;;(vls-ins-b "\\ XYZ\\kuai" '(0 0 0) 1 1 1 0)
• (defun vla-ins-b (bname pt xscale yscale zscale rot / mspace)
•   (vl-load-com)
•   (if (= (getvar "ctab") "Model")
•     (setq mspace *Model-Space*)
•     (setq mspace *Paper-Space*)
•   )
•   (setq theblock (vla-InsertBlock mspace (vlax-3d-point pt) bname xscale yscale zscale rot))
•   (princ)
• )
  

• ;;常量定义
• (setq *Acad* (vlax-get-acad-object)
•   *AcDocument* (vla-get-activedocument *Acad*)  ; 获取当前图档指针
•   *Model-Space* (vla-get-modelspace *AcDocument*)
•   *Paper-Space* (vla-get-PaperSpace *AcDocument*)
•   *BLKS* (vla-get-Blocks *AcDocument*)
•   *LAYS* (vla-get-Layers *AcDocument*)
•   *ACLYS*  (vla-get-activeLayer *AcDocument*)
•   *LTS*  (vla-get-Linetypes *AcDocument*)
•   pi2     (* pi 0.5)
•   pi4     (* pi 0.25)
•   3pi4   (* 0.75 pi)
•   2pi     (+ pi pi)
•   3pi2   (+ 3pi4 3pi4)  ;; (* 1.5 pi)
•   5pi4   (+ pi pi4)  ;;(* 1.25 pi)
•   7pi4   (+ 3pi2 pi4) ;;(* 1.75 pi)
•   $okbt ":button {label = \"确定\"; key = \"accept\"; fixed_width = true;width = 8;alignment = centered;is_default = true;}"
•   $canbt ":button {label = \"取消\"; key = \"cancel\"; fixed_width = true;width = 8;alignment = centered;is_cancel = true;}"
• )
  

sachindkini

Dear Sir,
Thanks For Sharing Source Code ..
Some Errors  are comes

1. (LOAD "C:/Users/SachinK/Downloads/Compressed/sltk.lsp") syntax error

复制代码

i remove this portion of code.  after remove this part code working fine.,

2. (defun sltkgy ()
   
3.        
   
4. )

(defun sltkgy () <br />         <br /> )

below function is missing

1. Command: SLTK
   
2. no function definition: SLPATHno function definition: SLPATH

复制代码

尘缘一生

czb203 发表于 2022-8-30 16:25
三领大神什么时候分享你的代码，让我们小辈学习下～

我一直在点滴分享，主要是我没法全部一一提出来，嵌套一层层的，我可不是保守敢说原因。三领的主程序，目前只有502K，要不集成的极其紧凑，无有多余、重复代码存在，大量的函数方式。

尘缘一生

sachindkini 发表于 2022-8-30 17:58
Dear Sir,
Thanks For Sharing Source Code ..
Some Errors  are comes

是的，这个如果独立运行，是不行的，需要三领支持，丢失的函数，仅仅的个帮助罢了，里面就是显示的帮助信息。

ynhh

请教您这些图片
是幻灯还是图块？
如图块就方便了
幻灯还是麻烦的
谢谢

czb203

三领大神什么时候分享你的代码，让我们小辈学习下～

magicheno

三领大佬咋退群了哇~

尘缘一生

ynhh 发表于 2022-8-30 15:45
请教您这些图片
是幻灯还是图块？
如图块就方便了

既有幻灯，也有图块啊，幻灯是界面显示，操作是DWG文件。

尘缘一生

magicheno 发表于 2022-8-30 16:35
三领大佬咋退群了哇~

没任何原因，因为我喝酒的原因，喝酒控制不住自己，不想麻烦打扰各位同仁。

sachindkini

尘缘一生 发表于 2022-8-30 19:32
是的，这个如果独立运行，是不行的，需要三领支持，丢失的函数，仅仅的个帮助罢了，里面就是显示的帮助信 ...

dear sir,

ok .. thanks