liuhaixin88 发表于 2022-7-5 23:36:53

Tharwat 发表于 2022-7-5 23:39:33

Check this out .
 

liuhaixin88 发表于 2022-7-5 23:42:13

 
Ok, when pick up the pt2, I can use "PER" to osnap,
 
In addition, can use "LINE" to draw this ? because……

Tharwat 发表于 2022-7-5 23:45:35

This ?
 

(defun c:Test (/ 1p 2p _l d ang 3p 4p 5p 6p 7p 8p 9p 10p 11p) ;;    Tharwat 15.May.2014      ;; (if (and (setq 1p (getpoint "\n Specify first point :"))          (setq 2p (getpoint "\n Second point :" 1p))          (if (

Tharwat 发表于 2022-7-5 23:51:36

Now you have two different routines that you can play with to get the best result that you are looking forward , so feel free to modify them .

liuhaixin88 发表于 2022-7-5 23:54:13

 
sorry ,The problem of #15, I can't solve

Tharwat 发表于 2022-7-5 23:59:37

What is that problem ? You want to add one more line as per the highlighted one in your post # 15 ?

liuhaixin88 发表于 2022-7-6 00:01:44

 
Your routines is draw 6 line , I want 5 line
 

Tharwat 发表于 2022-7-6 00:03:02

Just replace the following line of codes from the previous routine in post # 14
 

(mapcar '_l (list 4p 5p 7p 9p 6p) (list 5p 6p 8p 10p 3p))
页: 1 [2]
查看完整版本: 绘制埋头孔