两个例程几乎相等

Luancat · 发表于 2022-7-5 20:19:10

你好
我有两个程序：

;                            UPTRIM
;  ROTINA PARA TRAÇAR LINHA DE CORTE E EXECUTAR COMANDO TRIM
;    FEITA POR L.A.CAETANO
;___________________________________________________________________________
(defun c:Uptrim(/ LAYCOR pt1 pt2)
 
(setq LAYCOR (getvar "clayer")) ;Guarda o layer corrente.
 
(command "_.ortho" "_off") ;Desliga o modo ortho.
(setq pt1 (getpoint "\nPrimeiro ponto : ")) ;Início da linha de corte.
(setq pt2 (getpoint "\nSegundo ponto : ")) ;final da linha de corte.
(command "-layer" "S" "CONST" "") ;Torna o layer Const corrente.
 
(command "_line" pt1 pt2 "") ;Traça a linha de corte
 
(command "_TRIM" "@0,0" "" Pause"") ;Ativa o comando trim e seleciona a linha de corte.
 
(setvar "clayer" LAYCOR) ;Retorna ao layer original.
 
(command "_erase" "P" "") ;Apaga a linha de corte.
 (princ)
 )
 (princ)

copy

;                            UPEXTEN
;  ROTINA PARA TRAÇAR LINHA DE CORTE E EXECUTAR COMANDO EXTEND
;    FEITA POR L.A.CAETANO
;___________________________________________________________________________
;***************************************************************************
(defun c:Upexten(/ LAYCOR pt1 pt2)
 
(setq LAYCOR (getvar "clayer")) ;Guarda o layer corrente.
 
(command "_.ortho" "_off") ;Desliga o modo ortho.
(setq pt1 (getpoint "\nPrimeiro ponto : ")) ;Início da linha de corte.
 
(setq pt2 (getpoint "\nSegundo ponto : ")) ;final da linha de corte.
 
(command "-layer" "S" "CONST" "") ;Torna o layer Const corrente.
 
(command "_line" pt1 pt2 "") ;Traça a linha de corte
 
(command "_EXTEND" "@0,0" "" Pause"") ;Ativa o comando Extend e seleciona a linha de corte.
 
(setvar "clayer" LAYCOR) ;Retorna ao layer original.
 
(command "_erase" "P" "")) ;Apaga a linha de corte.
 (princ)
 )
 (princ)

第一个，自动加载我打开的每个图形。
第二个没有，我必须手动加载。
我对两个人都做了同样的程序。
不用讨论这两个的结构，因为加载后它们工作正常，有人可以告诉我为什么会发生这种情况？

hmsilva · 发表于 2022-7-5 20:26:37

嗨，Luancat，

你能给我们解释一下什么是“两者的相同程序”。。。

第二个程序，有一个额外的）；Apaga a linha de corte。

亨里克

Spaj · 发表于 2022-7-5 20:32:12

你好

仅当您专门将AutoCAD设置为自动加载时，Lisps才会自动加载。

检查以下链接以查看是否只添加了一个例程

http://www.lee-mac.com/autoloading.html

Luancat · 发表于 2022-7-5 20:37:47

大家好！
我想这会回答你们两个。
同样的程序意味着Spaj让我做的事情。一、我已经完成了链接中所述的一切：Startup suite、Acaddoc、信任位置中的文件夹。。。
我的lisp，位于：Appdata/Roaming/Autodesk/AutoCad 2014/支持，ApplicationsPlugins文件夹中甚至Acaddoc中都有一个all的副本。lsp。我会再看一遍，看看我是否错过了什么（我已经做了，但……知道……）过一会儿我再告诉你。
谢谢你们俩。

hmsilva · 发表于 2022-7-5 20:45:14

嗨，Luancat，
你读了我之前所有的帖子了吗？
第二个代码，有一个额外的右括号，你必须删除红色括号。。。

亨里克

Luancat · 发表于 2022-7-5 20:49:40

嗨，又来了！

奇怪的是，在我完成了一个新的阿卡多克之后，其他程序就不会加载了。你能看看这有没有问题吗。

copy

; ACAD.LSP
; ACAD.LSP Version 1.0 for Autocad 2012
;
;
(autoload "lica" '("lica"))
(autoload "lican" '("lican"))
(autoload "licang" '("licang"))
(autoload "lichor" '("lichor"))
(autoload "lichor2" '("lichor2"))
(autoload "lichor3" '("lichor3"))
(autoload "licofs" '("licofs"))
(autoload "licofs2" '("licofs2"))
(autoload "licofs3" '("licofs3"))
(autoload "licper" '("licper"))
(autoload "licper2" '("licper2"))
(autoload "licper3" '("licper3"))
(autoload "licver" '("licver"))
(autoload "licver2" '("licver2"))
(autoload "licver3" '("licver3"))
(autoload "R90" '("R90"))
(autoload "R91" '("R91"))
(autoload "Retrim" '("Retrim"))
(autoload "RETRIMex" '("Retrimex"))
(autoload "Uptrim" '("Uptrim"))
(autoload "MACROS")
(autoload "Upexten" '("Upexten"))
(autoload "PW" '("PW"))
(autoload "ZeraZ" '("zz")))
;;
;; silent load.

它存储在support文件夹中。
“Obrigado”

Luancat · 发表于 2022-7-5 20:55:06

嗨，席尔瓦，

在我最后一次回复之前，我已经阅读并完成了它。

谢谢

hmsilva · 发表于 2022-7-5 21:02:48

如果在命令行复制/粘贴
返回的路径来自您的acaddoc。lsp文件，还是其他？

编辑：
Luancat，你的文件头上写着“ACAD”。LSP”，但您的文件是“acaddoc”。lsp’，对吗？

AutoCAD将在“支持搜索路径”和当前目录下搜索文件，并加载第一个找到的文件。

在我的阿卡多克。lsp，路径是硬编码的，为了避免AutoCAD加载第一个找到的同名文件，请注意，如果省略文件扩展名，AutoCAD将加载第一个找到的同名文件，并且。lsp。fas或。vlx作为扩展。。。
例如
（自动加载“X:/MyLisp/Objects.LSP”“（“hio”“uniso”“iso”））
（自动加载“X:/MyLisp/Occ.LSP”（“Occ”））

亨里克

Luancat · 发表于 2022-7-5 21:07:27

你好

关于文件头，由于分号的原因，我认为它无关紧要，但我已经修复了它。
让我问你一件事。我必须储存阿卡多克。lsp在Aplicationplugins文件夹中，或者它必须只在一个类似support的文件夹中？
我会尽量像你一样为这条路难过，让我们看看会发生什么。
谢谢你

hmsilva · 发表于 2022-7-5 21:11:33

你是对的，这无关紧要，我的疑问是它是否只是标题或文件名。。。

存储在支持中，并使用findfile测试AutoCAD首次找到的文件是否为该文件。

亨里克

[编程交流] 两个例程几乎相等

发表回复

精选推荐