求助怎么快速生成矩形的黄金分割线？

月下闲人

求助怎么快速生成矩形横向和纵向的黄金分割线？

xyp1964

;; 实体黄金分割线

Bao_lai

距离的(√5-1)/2

月下闲人

xyp1964 发表于 2024-12-31 11:48
;; 实体黄金分割线

很好→很棒！很好~很棒！！

月下闲人

xyp1964 发表于 2024-12-31 11:48
;; 实体黄金分割线

院长我找到你多年以前的代码
;;;黄金比 : hjb
(defun c:hjb ()
   (setq  pt1 (getpoint "\n起点 :")
  no6 (getreal "\n短边长 : ")
  leng     (/ (- (sqrt 5) 1) 2);黄金比长边尺寸
  pt2 (list (+ (car pt1) no6) (+ (cadr pt1) (* no6 leng)))
   )
   (command "rectang" pt1 pt2);黄金比的长方形
)

xyp1964

月下闲人 发表于 2025-1-1 23:41
院长我找到你多年以前的代码
;;;黄金比 : hjb
(defun c:hjb ()

1. (defun c:tt ()
   
2.   "黄金比矩形"
   
3.   (setq dd (Udist 7 "" "短边长<输入或鼠标直接量取>" dd nil)
   
4.         sc (/ (- (sqrt 5) 1) 2.) ;黄金比
   
5.   )
   
6.   (while (setq p1 (getpoint "\n起点<退出>: "))
   
7.     (setq p2 (list (+ (car p1) dd) (+ (cadr p1) (* dd sc)))
   
8.           s1  (command "rectang" "non" p1 "non" p2)
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )

(defun c:tt ()<br />   "黄金比矩形"<br />   (setq dd (Udist 7 "" "短边长<输入或鼠标直接量取>" dd nil)<br />         sc (/ (- (sqrt 5) 1) 2.) ;黄金比<br />   )<br />   (while (setq p1 (getpoint "\n起点<退出>: "))<br />     (setq p2 (list (+ (car p1) dd) (+ (cadr p1) (* dd sc)))<br />           s1  (command "rectang" "non" p1 "non" p2)<br />     )<br />   )<br />   (princ)<br /> )

月下闲人

xyp1964 发表于 2025-1-2 13:08

再次感谢  很好用