定制acaddoc。lsp

alanjt · 发表于 2022-7-6 12:46:11

我只是碰巧注意到并想提供这一点信息。我不是职业选手，我只是说得太多了。

eric_monceaux · 发表于 2022-7-6 12:48:08

你知道，看到两个AutoCAD神互相攻击是很有趣的。。。但说真的，你们所有的“超级精英”（ReMark、alanjt、StykFace、Lee等）对我和其他人都有很大的帮助。我希望有一天能达到你的知识水平！自1995年以来，我一直在使用AutoCAD第10版，并努力学习我所能学到的一切。然而，有一个“龙”我从来没有能够抓住Lisp程序。我学到的大部分东西要么来自你们，要么来自crypic AutoCAD帮助文件！

先生们，继续努力吧（或者，伙计们，如果你愿意的话）。我不知道没有你我们该怎么办！

好了，今天的奶酪够了。。。你不这么认为吗？

eric_monceaux · 发表于 2022-7-6 12:52:36

哦，实际上我有个问题要问。我真的想得到阿卡多克。lsp不显示在每个图形的开头。我尝试将（命令“MENUECHO”“2”）添加到LISP的开头，但没有成功。还有其他方法可以做到这一点吗？

alanjt · 发表于 2022-7-6 12:55:42

英雄联盟诸神。。。。英雄联盟

我必须把它加到我的签名上。英雄联盟

alanjt · 发表于 2022-7-6 12:59:00

你不露面是什么意思？

eric_monceaux · 发表于 2022-7-6 13:02:59

对不起，忘记使用正确的术语。AutoCAD文本窗口。

alanjt · 发表于 2022-7-6 13:06:16

听起来你在创业公司有（textscr）。

eric_monceaux · 发表于 2022-7-6 13:07:00

我一开始对这个选项进行了一些探索。我本来打算在运行开始时添加一行（命令“graphschr”），但当LISP运行时，我得到以下输出（缩短）：

copy

Regenerating model.
AutoCAD menu utilities loaded.graphscr base Enter base point 
<0'-0",0'-0",0'-0">: 0,0,0 -INSERT Enter block name or [?]: Z_STD_SETUP 
Duplicate definition of block _ArchTick  ignored.
Units: Inches   Conversion:    1.0000
Specify insertion point or [basepoint/Scale/X/Y/Z/Rotate]: 0,0
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 1 Enter Y 
scale factor <use X scale factor>:
Specify rotation angle <0>: 0 ERASE
Select objects: L 1 found

文本屏幕仍然显示。
----------------------------------
我创建了acad。lsp和阿卡多克。lsp，我没有在中放入（命令“textscr”）或任何其他变体。是否有另一个文件可以保存该值？

----------------------------------
P、这是最新的阿卡多克。lsp

copy

;;;
;;; 
;;;North American Stone Drawing Set Up
;;;
;;;
;;;---------------------
;;;ENVIRONMENT
(command "graphscr")
(command "base" "0,0,0")
(setvar "osmode" 6255)
(command "-INSERT" "Z_STD_SETUP" "0,0" "1" "" "0")
(command "ERASE" "L" "")
(command "-STYLE" "SHEET" "tahoma.TTF" "0" "1" "0" "N" "N")
(command "-LAYER" "S" "0-STONE" "")
(command "-DIMSTYLE" "R" "16")
(command "LTSCALE" "6")
(command "PDMODE" "3")
(command "PDSIZE" "0")
(command "-HATCH" "P" "AR-SAND" "0.25" "0" "")
(command "-UNITS" "4" "16" "1" "0" "0" "N")
(command "VIEWRES" "Y""20000")
(command "SPLINESEGS" "20")
(command "FACETRES" "10")
(command "ISOLINES" "20")
(command "grid" "off")
;;;---------------------