放置偏移为的结果

runner214 · 发表于 2022-7-5 20:14:59

当前，我在标记管道管路时根据结果进行剪切和粘贴。我编译了一个简单的程序从零碎和多个网站的参考资料。
我现在需要帮助将lisp中的文本结果放置在选定行中点上方的偏移位置。
感谢您的帮助

;; label_run.lsp
;; lisp commands used referenced at: cadtutor.com, jefferypsanders.com, afralisp.net, ronleigh.com, lee-mac.com
;; Credits - Noted Assistance: hanhphuc, ymg      
;; Objective:
;; User To Pick By Line Or Two Points From Screen To Retrieve Distance(d) With Length Rounded Off And Compute Slope Percentage Of Selection
;; To Be Used For:
;;                 1) As An Inquiry - For Display Only
;;                 2) With Option To Paste Results Above Selected Line As Label
;; Wish List Add Ons
;;                   1) Possible Pipe Size And Material Add To String
;;                 2) Use Leader If Text Exceeds line
;;
;;**************************************************************************************;;
(defun C:label_run ( / *error* a1 a2 el e2 x1 y1 z1 x2 y2 z2 d tx pt txsize rot kw); Defined Functions Used -
(setq oldlayer (getvar "clayer"))
(setq oldsnap (getvar "osmode"))
;; User Option: Select Two Points Or Line - To Retrieve Distance Between And (z) Elevation At Each Selected Point
 (initget 0 "Line")
 (setq a1 (getpoint "\nPoint or [Line] "))
 (if (= a1 nil); If nil then select line
 (setq a1 "Line")
 )
;; If line option selected then:
 (if (= a1 "Line")
 ; true
 (progn
 (setq el (ut-get-object "LINE" "\nSelect Line:"))
 (setq a1 (cdr (assoc 10 el)))
 (setq a2 (cdr (assoc 11 el)))
 )
;; If point - pick point
 (progn
 (setq a2 (getpoint a1 "\nSelect second point: "))
 )
 )
 (if (= a2 nil) (exit)); line option selected
 ;get z value of points
 (setq x1 (car a1)
 y1 (cadr a1)
 z1 (caddr a1)
 x2 (car a2)
 y2 (cadr a2)
 z2 (caddr a2)
 )
;; Determine slope percentage -
 (if (> (abs (- z1 z2)) 0.1)
 (setq s1 "%"
 a1 (subst 0.0 z1 a1)
 a2 (subst 0.0 z2 a2)
 d  (distance a1 a2); Get Distance / Length Of Line
 slp (/ (- z2 z1) d); Formula For Slope: Z Value Point(1) Minus Z Value Point(2) (can Be Opposite 2-1) Divided By Length Of Line
 )
 (setq s1 "%"; Determine Percent
 d (distance a1 a2)
 slp (/ (- y2 y1) d)
 )
 )
 (setq slp (* slp 1.000))
;; Make Angle Readable      ;credit to ymg       
 (defun MakeReadable (a)
   (setq a (rem (+ a pi pi) (+ pi pi)))
   (rem (if (< (* pi 0.5) a (* pi 1.5))
   (+ a pi)
   a
   ) ;_ end of if
 (+ pi pi)
 ) ;_ end of rem
   ) ;_ end of defun
;; Results Displayed On Screen
(terpri)
(princ (setq tx ( strcat (rtos d 2 0)" LF @ "  (rtos slp 2 2) s1 " Slope")))
;; Option To Paste Results In Drawing offset Midpoint Above Line From Display 
(initget "Yes No")
(setq kw (getkword "\nPlace Above Line? [Yes/No] :"))
(if (= kw "Yes")
 (progn (setq txsize (getvar 'textsize) pt (polar (apply 'mapcar (cons ''((a b) (* 0.5 (+ a b))) (list a1 a2)))
                 (+ rot (/ pi 2.))
                 (* txsize 3.0)
                 ) ;_ end of polar
       ) ;_  end of setq
 (entmake (list        '(0 . "TEXT")
                '(72 . 1) ; justify
                (cons 1 tx)
                (cons 10 pt)
                (cons 11 pt) ; justify
                (cons 40 txsize)
                (cons 50 (MakeReadable (apply 'angle lst)))
                ) ; list
          ) ;entmake
 ) ;_ end of progn
 ) ;_ end of if
;;;; NOTED ERROR AT THIS POINT
;;;; ; error: bad argument type: numberp: nil
;; ERROR RESEARCH: A function requiring an integer argument has been passed an argument of incorrect data type with the value noted in the error message.
(princ)
 )
(princ)
;; To Reset Original Varibles - End
(setq olderr *error*)
(setvar "osmode" 11)
(princ)

hanhphuc · 发表于 2022-7-5 20:30:13

嗨runner214试试这个旧线程
这有帮助吗？

建议：

copy


;; label_run.lsp
;; lisp commands used referenced at: cadtutor.com, jefferypsanders.com, afralisp.net, ronleigh.com, lee-mac.com
;; Credits - Noted Assistance: hanhphuc, ymg      
;; Objective:
;; User To Pick By Line Or Two Points From Screen To Retrieve Distance(d) With Length Rounded Off And Compute Slope Percentage Of Selection
;; To Be Used For:
;;                 1) As An Inquiry - For Display Only
;;                 2) With Option To Paste Results Above Selected Line As Label
;; Wish List Add Ons
;;                   1) Possible Pipe Size And Material Add To String
;;                 2) Use Leader If Text Exceeds line
;;
;;**************************************************************************************;;
 
;; Make Angle Readable      ;credit to ymg       
 (defun MakeReadable (a)
   (setq a (rem (+ a pi pi) (+ pi pi)))
   (rem (if (< (* pi 0.5) a (* pi 1.5))
   (+ a pi)
   a
   ) ;_ end of if
 (+ pi pi)
 ) ;_ end of rem
   ) ;_ end of defun   
(defun C:label_run ( / *error* a1 a2 el e2 x1 y1 z1 x2 y2 z2 d tx pt txsize rot kw [color="red"]lst[/color] ); Defined Functions Used -
(setq oldlayer (getvar "clayer"))
(setq oldsnap (getvar "osmode"))
;; User Option: Select Two Points Or Line - To Retrieve Distance Between And (z) Elevation At Each Selected Point
 (initget 0 "Line")
 (setq a1 (getpoint "\nPoint or [Line] "))
 (if (= a1 nil); If nil then select line
 (setq a1 "Line")
 )
;; If line option selected then:
 (if (= a1 "Line")
 ; true
 (progn
 (setq el (ut-get-object "LINE" "\nSelect Line:"))
 (setq a1 (cdr (assoc 10 el)))
 (setq a2 (cdr (assoc 11 el)))
 )
;; If point - pick point
 (progn
 (setq a2 (getpoint a1 "\nSelect second point: "))
 )
 )
 (if (= a2 nil) (exit)); line option selected
 ;get z value of points
 (setq x1 (car a1)
 y1 (cadr a1)
 z1 (caddr a1)
 x2 (car a2)
 y2 (cadr a2)
 z2 (caddr a2)
 )
;; Determine slope percentage -
 (if (> (abs (- z1 z2)) 0.1)
 (setq s1 "%"
 a1 (subst 0.0 z1 a1)
 a2 (subst 0.0 z2 a2)
 d  (distance a1 a2); Get Distance / Length Of Line
 slp (/ (- z2 z1) d); Formula For Slope: Z Value Point(1) Minus Z Value Point(2) (can Be Opposite 2-1) Divided By Length Of Line
 )
 (setq s1 "%"; Determine Percent
 d (distance a1 a2)
 slp (/ (- y2 y1) d)
 )
 )
 (setq slp (* slp 1.000))
;; Results Displayed On Screen
(terpri)
(princ (setq tx ( strcat (rtos d 2 0)" LF @ "  (rtos slp 2 2) s1 " Slope")))
;; Option To Paste Results In Drawing offset Midpoint Above Line From Display 
(initget "Yes No")
(setq kw (getkword "\nPlace Above Line? [Yes/No] :"))
(if (= kw "Yes")
 (progn (setq txsize (getvar 'textsize)
       [color="red"]lst (list a1 a2)
       rot (MakeReadable (apply 'angle lst))[/color]
       pt  (polar (apply 'mapcar (cons ''((a b) (* 0.5 (+ a b)))[color="red"] lst[/color]))
                 (+ rot (/ pi 2.))
                 (* txsize 3.0)
                 ) ;_ end of polar
       ) ;_  end of setq
 (entmake (list        '(0 . "TEXT")
                '(72 . 1) ; justify
                (cons 1 tx)
                (cons 10 pt)
                (cons 11 pt) ; justify
                (cons 40 txsize)
                (cons 50 [color="red"]rot[/color])
                ) ; list
          ) ;entmake
 ) ;_ end of progn
 ) ;_ end of if
(princ)
 )
(princ)
;; To Reset Original Varibles - End
(setq olderr *error*)
(setvar "osmode" 11)
(princ)

HTH公司

runner214 · 发表于 2022-7-5 20:40:16

谢谢hanhphuc，明天早上会查出来的

我对lisp结果的结果感到满意。-ie:27 LF@。02%斜率-。我只是不确定如何获取结果并将其放置在偏离所选线中点的位置。
我试图使用lisp作为查询（显示）的工具，如果我想标记文本结果，还可以使用Y或N选项将其放置在行上。。

runner214 · 发表于 2022-7-5 20:54:50

hanhphuc公司

插入您建议的更改。YES响应出错，并收到错误。NO选项关闭时没有任何错误。

然后，我根据Lee Mac的教程运行了Visual Lips editor程序，结果如下：

日志监视
...............
*最后一个值*=
（+ROT（/PI 2.0））=
（SETQ DEC 2）=2
12 = 12
...............

更新代码：

copy


;; label_run.lsp
;; lisp commands used referenced at: cadtutor.com, jefferypsanders.com, afralisp.net, ronleigh.com, lee-mac.com
;; Credits - Noted Assistance: hanhphuc, ymg
;; Debugging
;; Current - 020815
;; Objective:
;; User To Pick By Line Or Two Points From Screen To Retrieve Distance(d) With Length Rounded Off And Compute Slope Percentage Of Selection
;; To Be Used For:
;;                 1) As An Inquiry - For Display Only
;;                 2) With Option To Paste Results Above Selected Line As Label
;; Wish List Add Ons
;;                   1) Possible Pipe Size And Material Add To String
;;                 2) Use Leader If Text Exceeds line
;;
;;**************************************************************************************;;
(defun C:label_run ( / *error* a1 a2 el e2 x1 y1 z1 x2 y2 z2 d tx pt txsize rot kw); Defined Functions Used -
(setq oldlayer (getvar "clayer"))
(setq oldsnap (getvar "osmode"))
;; User Option: Select Two Points Or Line - To Retrieve Distance Between And (z) Elevation At Each Selected Point
 (initget 0 "Line")
 (setq a1 (getpoint "\nPoint or [Line] "))
 (if (= a1 nil); If nil then select line
 (setq a1 "Line")
 )
;; If line option selected then:
 (if (= a1 "Line")
 ; true
 (progn
 (setq el (ut-get-object "LINE" "\nSelect Line:"))
 (setq a1 (cdr (assoc 10 el)))
 (setq a2 (cdr (assoc 11 el)))
 )
;; If point - pick point
 (progn
 (setq a2 (getpoint a1 "\nSelect second point: "))
 )
 )
 (if (= a2 nil) (exit)); line option selected
 ;get z value of points
 (setq x1 (car a1)
 y1 (cadr a1)
 z1 (caddr a1)
 x2 (car a2)
 y2 (cadr a2)
 z2 (caddr a2)
 )
;; Determine slope percentage -
 (if (> (abs (- z1 z2)) 0.1)
 (setq s1 "%"
 a1 (subst 0.0 z1 a1)
 a2 (subst 0.0 z2 a2)
 d  (distance a1 a2); Get Distance / Length Of Line
 slp (/ (- z2 z1) d); Formula For Slope: Z Value Point(1) Minus Z Value Point(2) (can Be Opposite 2-1) Divided By Length Of Line
 )
 (setq s1 "%"; Determine Percent
 d (distance a1 a2)
 slp (/ (- y2 y1) d)
 )
 )
 (setq slp (* slp 1.000))
;; Make Angle Readable      ;credit to ymg
 (defun MakeReadable (a)
   (setq a (rem (+ a pi pi) (+ pi pi)))
   (rem (if (< (* pi 0.5) a (* pi 1.5))
   (+ a pi)
   a
   ) ;_ end of if
 (+ pi pi)
 ) ;_ end of rem
   ) ;_ end of defun
;; Results Displayed On Screen
(terpri)
(princ (setq tx ( strcat (rtos d 2 0)" LF @ "  (rtos slp 2 2) s1 " Slope")))
;; Option To Paste Results In Drawing offset Midpoint Above Line From Display
(initget "Yes No")
(setq kw (getkword "\nPlace Above Line? [Yes/No] :"))
(if (= kw "Yes")
 (progn (setq txsize (getvar 'textsize) pt (polar (apply 'mapcar (cons ''((a b) (* 0.5 (+ a b))) (list a1 a2)))
                 (+ rot (/ pi 2.))
                 (* txsize 3.0)
                 ) ;_ end of polar
       ) ;_  end of setq
 (entmake (list        '(0 . "TEXT")
                '(72 . 1) ; justify
                (cons 1 tx)
                (cons 10 pt)
                (cons 11 pt) ; justify
                (cons 40 txsize)
                (cons 50 (MakeReadable (apply 'angle lst)))
                ) ; list
          ) ;entmake
 ) ;_ end of progn
 ) ;_ end of if
;;;; NOTED ERROR AT THIS POINT
;;;; ; error: bad argument type: numberp: nil
;; ERROR RESEARCH: A function requiring an integer argument has been passed an argument of incorrect data type with the value noted in the error message.
(princ)
 )
(princ)
;; To Reset Original Varibles - End
(setq olderr *error*)
(setvar "osmode" 11)
(princ)

有什么想法吗？

hanhphuc · 发表于 2022-7-5 21:03:22

我的道歉，
这是由于rot值不是setq，

copy


lst (list a1 a2) 
[color="red"]rot[/color] (MakeReadable (apply 'angle lst))

代码更新后#2

runner214 · 发表于 2022-7-5 21:12:26

hanhphuc公司

成功了！

谢谢你的帮助。我读了一整天都没有成功。

谢谢你的时间。

hanhphuc · 发表于 2022-7-5 21:16:28

欢迎你runner214。坚持下去这是你的负担

[编程交流] 放置偏移为的结果

发表回复

精选推荐