在文件上运行lisp

JONTHEPOPE · 发表于 2022-7-6 14:45:06

大家好，
我对在关闭的文件上运行lisp感兴趣，这可能吗。我可以同时在两个图形上运行lisp吗？
在这种情况下，似乎最好使用scrpit文件

JONTHEPOPE · 发表于 2022-7-6 14:56:09

我的下一个问题是关于我应该如何删除某一长度的行，比如说1'

JONTHEPOPE · 发表于 2022-7-6 15:06:02

 
(defun dlfoot ()
(setvar "cmdecho" 0)
(setq pt1 (getvar "limmin"))
(setq pt2 (getvar "limmax"))
(setq ss1 (ssget "w" pt1 pt2))
(ssget "X" (list (cons 0 "line")))
???
(comannd "erase" ss1"")
(command redraw")
(setvar "cmdecho" 1)
(princ)
)

Lee Mac · 发表于 2022-7-6 15:15:23

也许：

copy


(defun c:dlfoot  (/ Tol ss eLst pt1 pt2)
 (vl-load-com)
 (setq Tol 0.001)
 (if (setq ss (ssget "X" (list (cons 0 "LINE")
                            (if (getvar "CTAB")
                              (cons 410 (getvar "CTAB"))
                              (cons 67 (- 1 (getvar "TILEMODE")))))))
   (progn
     (foreach x  (mapcar 'cadr (ssnamex ss))
       (setq eLst (entget x)
             pt1  (cdr (assoc 10 eLst))
             pt2  (cdr (assoc 11 eLst)))
       (if (not (equal (distance pt1 pt2) 1.0 Tol))
         (ssdel x ss)))
     (if (not (zerop (sslength ss)))
       (command "_erase" ss "")))
   (princ "\n<!> No Lines Found <!>"))
 (princ))

JONTHEPOPE · 发表于 2022-7-6 15:21:26

你的编码进步太快了。嗯，我的车落后了不少。主要是因为我的cad经理不相信“浪费时间”，我希望他能见到你

Lee Mac · 发表于 2022-7-6 15:29:07

哈哈，我以前的经理也不喜欢我在工作中写代码，但这确实节省了你的时间

记住上面的代码，我在代码中包含了一个公差，位于顶部（当前设置为0.001），但如果您愿意，您可能希望将其设置为更低（或更高）或0。

李

JONTHEPOPE · 发表于 2022-7-6 15:36:55

因为你主修数学，你能解释一下什么是整数的阶乘吗？什么时候最好用？

copy

 
;  This is a programming example of a recursive function 
;  which calculates the factorial of an integer.
(defun factor (y)                
  (cond ((= 0 y) 1)
        (t  (* y (factor (1- y))))
  )
)
(defun C:FACT (/ x)
  (initget 7)     ;x must not be null, negative or zero
  (setq x (getint "Enter an integer: "))
  (factor (float x))
)

Lee Mac · 发表于 2022-7-6 15:49:25

阶乘是指整数乘以其下的所有整数（直到1）：

即
5.（5阶乘）=5 x 4 x 3 x 2 x 1=120

4.（4阶乘）=4 x 3 x 2 x 1=24
等

这在许多不同的应用程序中都很有用-例如，计算一组n个不同对象的排序方式的数量是n！

或者在（1+x）^n的二项式展开中，系数的表达式中使用阶乘：

1+nx+（n（n-1）/2！）x^2+（n（n-1）（n-2）/3！）*x^3等

有关阶乘的更多信息，请参阅此处：

http://en.wikipedia.org/wiki/Factorial

有关二项式展开的更多信息，请参阅此处：
http://en.wikipedia.org/wiki/Binomial_expansion

希望这有帮助

李

[编程交流] 在文件上运行lisp

发表回复

精选推荐