仍在学习，但现在试图做一个“L”形。

Grrr1337 · 发表于 2022-6-17 14:41:45

感谢每一位帮助我最后一次尝试

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

BIGAL · 发表于 2022-6-17 18:19:13

嗨，这是一个简单的例子。不确定这是否是你所追求的 -

; Sample chart:
;
;   pt_legYaxis
;    |  | ipt_legYaxis
;    |  |
;    |  |
;    |  | ipt
;    |  |___________ ipt_legXaxis
; pt |________________ pt_legXaxis
;
;
(defun C:BAA ( / pt LG1 LG2 THK1 pt_legYaxis pt_legXaxis ipt_legYaxis ipt_legXaxis ipt ) ; always localise your variables
  
  (if 
    (and ; code block that collects all the user's inputs
      (setq pt (getpoint "Choose a starting point"))
      (setq LG1 (getreal "How long is the 1st leg?"))
      (setq LG2 (getreal "How long is the 2nd leg?"))
      (setq THK1 (getreal "How thick is the member?"))
    ); and 
    (progn ; code block that processes the inputs
      (setq pt_legYaxis (mapcar '+ pt (list 0.0 LG1 0.0))) ; calculate the vertical leg by adding 'LG1' distance to 'pt's Y coordinate
      (setq pt_legXaxis (mapcar '+ pt (list LG2 0.0 0.0))) ; calculate the horizontal leg by adding 'LG2' distance to 'pt's X coordinate
      (setq ipt_legYaxis (mapcar '+ pt_legYaxis (list THK1 0.0 0.0))) ; calculate the inner top vertex by adding 'THK1' distance on 'ipt_legYaxis' s X coordinate 
      (setq ipt_legXaxis (mapcar '+ pt_legXaxis (list 0.0 THK1 0.0))) ; calculate the inner bottom vertex by adding 'THK1' distance on 'ipt_legXaxis' s Y coordinate 
      (setq ipt (mapcar '+ pt (list THK1 THK1 0.0))) ; calculate the inner intersection by adding 'THK1' distance on 'pt's X coordinate and Y coordinate 
      
      (command "_.pline" pt pt_legXaxis ipt_legXaxis ipt ipt_legYaxis pt_legYaxis "c") ; invoke polyline command and order the point arguments to shape an outline
    ); progn 
    (alert "User interrupted an input")
  ); if 
  (princ)
); defun C:BAA

Grrr1337 · 发表于 2022-6-17 22:12:44

Grrr1337提供了一个很好的解决方案
如果需要，您可以更改输入

copy

(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
(setq ans (AH:getvalsm (list "Enter values " "1st leg Len " 10 9 "6" "2nd leg len" 10 9 "6" "Thickness " 10 9 "1" )))

BIGAL · 发表于 2022-6-20 09:07:58

这个命令确实很神奇，我从检查每条线的作用中学到了很多，但我想知道是否有一种简单的方法来合并角度(正负90度)和角度外侧的圆角。我希望现在开始合并，以便以后我可以根据用户的输入进行更改。
非常感谢您的帮助和指导。

BIGAL · 发表于 2022-6-20 11:11:05

你有你的“常规”点来描述形状，对于这样的重新计算，你可能需要一些点旋转和/或点反射子功能。
以下是来自快速Google搜索的几个链接：
旋转点列表
如何计算镜像点
对于我个人来说，要执行此类任务，我使用Lee Mac的Matrix变换函数（因为我不擅长数学）：
矩阵变换函数
您的下一个目标是如何将它们合并到您的代码中，并决定使用哪种用户输入来绘制旋转/镜像形状。

BIGAL · 发表于 2022-6-20 20:46:46

也许输入长度的-ve值可以使用GRRR码反转“L ”,但是需要改变几个值。如果Grrr不做第一，我会想一想。

JohnK · 发表于 2022-6-22 01:38:23

找到时间玩了一把，很抱歉Grrr迷失在pt名称中，接受负距离。

copy

; Sample chart:
; Original code by Grrr
; Modified by Alanh to do 4 directions
;      pt2  pt3
;       |  |
;       |  |
;       |  |
;       |  | pt4
;       |  |___________ pt5
; pt1 |________________ pt6
;
;
(defun C:BAA ( / oldsnap pt1 LG1 LG2 THK1 l1 l2 l3 l4 pt1 pt2 pt3 pt4 pt5 pt6) ; always localise your variables
(defun l1 ( / )
(setq pt2 (mapcar '+ pt1 (list 0.0 LG1 0.0))) ; calculate the vertical leg by adding 'LG1' distance to 'pt's Y coordinate
(setq pt3 (mapcar '+ pt2 (list THK1 0.0 0.0))) ; calculate the inner top vertex by adding 'THK1' distance on 'ipt_legYaxis' s X coordinate
(setq pt4 (mapcar '+ pt1 (list THK1 THK1 0.0))) ; calculate the inner intersection by adding 'THK1' distance on 'pt's X coordinate and Y coordinate
(setq pt6 (mapcar '+ pt1 (list LG2 0.0 0.0))) ; calculate the horizontal leg by adding 'LG2' distance to 'pt's X coordinate
(setq pt5 (mapcar '+ pt6 (list 0.0 THK1 0.0))) ; calculate the inner bottom vertex by adding 'THK1' distance on 'ipt_legXaxis' s Y coordinate
(command "_.pline" pt1 pt2 pt3 pt4 pt5 pt6  "c")
)
(defun l2 ( / )
(setq pt2 (mapcar '+ pt1 (list 0.0 LG1 0.0))) ; calculate the vertical leg by adding 'LG1' distance to 'pt's Y coordinate
(setq pt3 (mapcar '+ pt2 (list THK1 0.0 0.0))) ; calculate the inner top vertex by adding 'THK1' distance on 'ipt_legYaxis' s X coordinate
(setq pt4 (mapcar '+ pt1 (list THK1 (- THK1) 0.0))) ; calculate the inner intersection by adding 'THK1' distance on 'pt's X coordinate and Y coordinate
(setq pt6 (mapcar '+ pt1 (list LG2 0.0 0.0))) ; calculate the horizontal leg by adding 'LG2' distance to 'pt's X coordinate
(setq pt5 (mapcar '+ pt6 (list 0.0 (- THK1) 0.0))) ; calculate the inner bottom vertex by adding 'THK1' distance on 'ipt_legXaxis' s Y coordinate
(command "_.pline" pt1 pt2 pt3 pt4 pt5 pt6  "c")
)
(defun l3 ( / )
(setq pt2 (mapcar '+ pt1 (list 0.0 LG1 0.0))) ; calculate the vertical leg by adding 'LG1' distance to 'pt's Y coordinate
(setq pt3 (mapcar '+ pt2 (list (- THK1) 0.0 0.0))) ; calculate the inner top vertex by adding 'THK1' distance on 'ipt_legYaxis' s X coordinate
(setq pt4 (mapcar '+ pt1 (list (- THK1) THK1 0.0))) ; calculate the inner intersection by adding 'THK1' distance on 'pt's X coordinate and Y coordinate
(setq pt6 (mapcar '+ pt1 (list LG2 0.0 0.0))) ; calculate the horizontal leg by adding 'LG2' distance to 'pt's X coordinate
(setq pt5 (mapcar '+ pt6 (list 0.0 THK1 0.0))) ; calculate the inner bottom vertex by adding 'THK1' distance on 'ipt_legXaxis' s Y coordinate
(command "_.pline" pt1 pt2 pt3 pt4 pt5 pt6  "c")
)
(defun l4 (  / )
(setq pt2 (mapcar '+ pt1 (list 0.0 LG1 0.0))) ; calculate the vertical leg by adding 'LG1' distance to 'pt's Y coordinate
(setq pt3 (mapcar '+ pt2 (list (- THK1) 0.0 0.0))) ; calculate the inner top vertex by adding 'THK1' distance on 'ipt_legYaxis' s X coordinate
(setq pt4 (mapcar '+ pt1 (list (- THK1) (- THK1) 0.0))) ; calculate the inner intersection by adding 'THK1' distance on 'pt's X coordinate and Y coordinate
(setq pt6 (mapcar '+ pt1 (list LG2 0.0 0.0))) ; calculate the horizontal leg by adding 'LG2' distance to 'pt's X coordinate
(setq pt5 (mapcar '+ pt6 (list 0.0 (- THK1) 0.0))) ; calculate the inner bottom vertex by adding 'THK1' distance on 'ipt_legXaxis' s Y coordinate
(command "_.pline" pt1 pt2 pt3 pt4 pt5 pt6  "c")
)
(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
(if (= (setq  pt1 (getpoint "Choose a starting point")) nil)
(alert "User interrupted an input")
(progn
  (setq ans (AH:getvalsm (list "Enter values " "Height  " 6 5 "100" "Length " 6 5 "150" "Thick " 6 5 "10" )))
  (setq LG1 (atof (nth 0 ans)) lG2 (atof (nth 1 ans)) THK1 (atof (nth 2 ans)))
  (setq oldsnap (getvar 'osmode))
  (setvar 'osmode 0)
  (cond
    ((and (> lg1 0.0)(> LG2 0.0))(L1))
    ((and ( LG2 0.0))(L2))
    ((and (> lg1 0.0)((defun C:BAA ( / pt LG1 LG2 THK1 pty ptx ipty iptx ipt dtr) ; Localizes the variables.
 
(setq CL (getvar "clayer")); Gets the current layer.
        
(command "layer" "m" "0" "c" 4 "" "l" "continuous" "" nil); Creates and sets layer 0.
 
(setq lm (getvar "limcheck")); Gets the current limit setting.
 
(setvar "limcheck" 0); Sets limits to 0 or off.
 
(defun dtr (x); Defines the degrees to radians. Remember to change it back.
 
(* pi (/ x 180.0)); Angle divided by 180, then total is multiplied by Pi.
 
); Closes Rad function.
 
 
 
        (if 
 
                (and 
 
                        (setq pt (getpoint "Please choose a start?")); Bottom left starting point of leg.
 
                                (setq LG1 (getreal "Please enter the 1st leg length?")); Vertical leg length.
 
                                        (setq LG2 (getreal "Please enter the 2nd leg length?")); horizontal leg length.
 
                                                (setq THK1 (getreal "How thick is the member?")); Thickness of the angle member.
 
                                                        ); Closes and
 
                                                                (progn ; code block that processes the inputs
 
                                                                        (setq pty (polar '+ pt (dtr 0.0 LG1 0.0))) ; Outside of vertical leg.
 
                                                                (setq ptx (polar '+ pt (dtr LG2 0.0 0.0))) ; Outside of horizontal leg.
 
                                                        (setq ipty (polar '+ pty (dtr THK1 0.0 0.0))) ; Inside of vertical leg.
 
                                                (setq iptx (polar '+ ptx (dtr 0.0 THK1 0.0))) ; Inside horizontal leg.
 
                                        (setq ipt (polar '+ pt (dtr THK1 THK1 0.0))) ; Inside intersection.
 
                                (command "pline" pt ptx iptx ipt ipty pty "c") ; Polyline to make the angle.
 
                                                                ); Closes progn
 
        ); Closed if
 
(command "layer" "s" cl ""); To set layer back to original.
 
(setvar "limcheck" lm); To reset limit to starting limit.
 
); Closes defun

BIGAL · 发表于 2022-6-23 15:08:46

您当前代码的问题是您试图向“dtr”函数传递太多参数。
小提示，有些有简单的标准约定(它们可能看起来很小，但以后会对您有帮助)。
1。用“；”注释函数结尾；_
"字符串。
2。你可以排列你的行内注释以便于阅读(如果你使用文本编辑器并且可以控制它，我倾向于使用第57列)。
3。我在我的评论前加一个破折号，这样我就可以知道新的评论(句子/陈述)从哪里开始。

copy

;; -X-          This code does not work          -X-
(defun C:BAA ( / pt LG1 LG2 THK1 pty ptx ipty iptx ipt dtr) ; -Localizes the variables.
  (setq CL (getvar "clayer"))                           ; -Gets the current layer.
  (command "layer" "m" "0" "c" 4 "" "l" "continuous" "" nil); -Creates and sets layer 0.
  (setq lm (getvar "limcheck"))                         ; -Gets the current limit setting.
  (setvar "limcheck" 0)                                 ; -Sets limits to 0 or off.
 
  (defun dtr (x)                                        ; -Defines the degrees to radians. Remember 
                                                        ;  to change it back.
    (* pi (/ x 180.0))                                  ; -Angle divided by 180, then total 
                                                        ;  is multiplied by Pi.
    );_ defun
 
 
  (if 
    (and 
      (setq pt (getpoint "Please choose a start?"))     ; -Bottom left starting point of leg.
      (setq LG1 (getreal "Please enter the 1st leg length?")); -Vertical leg length.
      (setq LG2 (getreal "Please enter the 2nd leg length?")); -Horizontal leg length.
      (setq THK1 (getreal "How thick is the member?"))  ; -Thickness of the angle member.
      );_ and
 
    (progn                                              ; -code block that processes the inputs
      (setq pty (polar '+ pt (dtr 0.0 LG1 0.0)))        ; -Outside of vertical leg.
      (setq ptx (polar '+ pt (dtr LG2 0.0 0.0)))        ; -Outside of horizontal leg.
      (setq ipty (polar '+ pty (dtr THK1 0.0 0.0)))     ; -Inside of vertical leg.
      (setq iptx (polar '+ ptx (dtr 0.0 THK1 0.0)))     ; -Inside horizontal leg.
      (setq ipt (polar '+ pt (dtr THK1 THK1 0.0)))      ; -Inside intersection.
      (command "pline" pt ptx iptx ipt ipty pty "c")    ; -Polyline to make the angle.
      );_ progn
    );_ if
 
  (command "layer" "s" cl "")                           ; -To set layer back to original.
  (setvar "limcheck" lm)                                ; -To reset limit to starting limit.
  );_ defun