发布三领设计V2.0 所集成图库源码
本帖最后由 尘缘一生 于 2022-8-30 15:10 编辑图库系统初始源码，缘自【 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;}"
[*])
Dear Sir,
Thanks For Sharing Source Code ..
Some Errorsare comes
(LOAD "C:/Users/SachinK/Downloads/Compressed/sltk.lsp") syntax error
i remove this portion of code.after remove this part code working fine.,
(defun sltkgy ()
)
below function is missing
Command: SLTK
no function definition: SLPATHno function definition: SLPATH 本帖最后由 尘缘一生 于 2022-8-30 17:49 编辑
czb203 发表于 2022-8-30 16:25
三领大神什么时候分享你的代码，让我们小辈学习下～
我一直在点滴分享，主要是我没法全部一一提出来，嵌套一层层的，我可不是保守敢说原因。三领的主程序，目前只有502K，要不集成的极其紧凑，无有多余、重复代码存在，大量的函数方式。 sachindkini 发表于 2022-8-30 17:58
Dear Sir,
Thanks For Sharing Source Code ..
Some Errorsare comes
是的，这个如果独立运行，是不行的，需要三领支持，丢失的函数，仅仅的个帮助罢了，里面就是显示的帮助信息。 请教您这些图片
是幻灯还是图块？
如图块就方便了
幻灯还是麻烦的
谢谢 三领大神什么时候分享你的代码，让我们小辈学习下～ 三领大佬咋退群了哇~ ynhh 发表于 2022-8-30 15:45
请教您这些图片
是幻灯还是图块？
如图块就方便了
既有幻灯，也有图块啊，幻灯是界面显示，操作是DWG文件。 magicheno 发表于 2022-8-30 16:35
三领大佬咋退群了哇~
没任何原因，因为我喝酒的原因，喝酒控制不住自己，不想麻烦打扰各位同仁。 尘缘一生 发表于 2022-8-30 19:32
是的，这个如果独立运行，是不行的，需要三领支持，丢失的函数，仅仅的个帮助罢了，里面就是显示的帮助信 ...
dear sir,
ok .. thanks
页:
[1]
2