<*** 最新修正 dng6版 非常實用的 鼠標角度切換 繪圖 ***>

lee50310

<*** 非常實用的  鼠標角度切換 ***>
  

請重新下載 最新  修正版 dngˊ6   (已修正 :點選角度值 與 抓取角度 之 弳度值未一致 )  修正日期:2023/12/02
                            修正版 dng5   (已修正 :點選角度值 轉換 錯誤值 )                           修正日期:2023/12/02
                            修正版 dng4   (已修正 :列表选择无效 )                                          修正日期:2023/12/01

執行指令:dng
             1.選擇物體 切換鼠標角度  或 <空白處 左擊鼠鍵 後 鼠標旁出現選單 請點選角度> (或右擊鼠鍵也會有選單)
             2.滑鼠切換物體角度  可方便在有角度的物體上繪圖

            ps .切回正鼠標角度 可選 水平或垂直 線物體  或 角度點選 0度 即可

<部分程式>
可將自己常用的角度設置在此函數中 (自行修改)

1. ;;-------------------------------------------------------------------------
   
2. (defun 2p-ang()
   
3.    (if (= sel nil) (setq sel 0))  ;角度值初设 0      
   
4.        (setq mymenu(strcat "\n 请点选 或 输入角度值 [0 /30 /45 /60 /135 /225 /315 ]<" (itoa sel) ">:"))
   
5.        (initget "0 30 45 60 135 225 315")
   
6.        (setq ang(read (getkword mymenu )))
   
7.    (if (= ang nil)(setq ang sel )(setq sel ang))
   
8. )
   
9. ;;------------------------------------------------------------------------
   

;;-------------------------------------------------------------------------<br /> (defun 2p-ang()<br />    (if (= sel nil) (setq sel 0))  ;角度值初设 0       <br />        (setq mymenu(strcat "\n 请点选 或 输入角度值 [0 /30 /45 /60 /135 /225 /315 ]<" (itoa sel) ">:"))<br />        (initget "0 30 45 60 135 225 315") <br />        (setq ang(read (getkword mymenu )))<br />    (if (= ang nil)(setq ang sel )(setq sel ang))<br /> )<br /> ;;------------------------------------------------------------------------<br />

lee50310

vista228 发表于 2023-12-1 21:15
大佬这个列表选择无效

已修正
請重新下載修正版 dngˊ6

或 用文字編輯器 修改 dng3版 程式中此行

(initget "0 45 135 225 315")
(setq ang(read (getkword (strcat "\n 請點選 或 輸入角度值 [0度  /45度  /135度  /225度  /315度  ]<" (itoa sel) ">:") )))

將上行中的 "度" 去除 修正後存檔即可   修正如下:

(initget "0 45 135 225 315")
(setq ang(read (getkword (strcat "\n 請點選 或 輸入角度值 [0  /45  /135  /225  /315  ]<" (itoa sel) ">:") )))

lee50310

guosheyang 发表于 2023-12-2 11:40
lee50310 朋友  你好！ 测试了下你的代码   我设置45度时   最后画出的线  发觉不是45度  是58.31008度    ...

感謝發現問題, 已修正
請重新下載
                 最新  修正版 dngˊ6   (已修正 :點選角度值 與 抓取角度 之 弳度值未一致 )  修正日期:2023/12/02

guosheyang

lee50310 朋友  你好！ 测试了下你的代码   我设置45度时   最后画出的线  发觉不是45度  是58.31008度   这个 不知道是我的系统设置原因   还是啥   请问你那里测试是否是对头的    谢谢！

d1742647821

差点就看懂了

ZYX2129

感谢楼主分享好工具

mashanjie

虽然不常用到这种操作，还是先收藏，感谢楼主分享

vista228

好用，感谢大佬分享

wangsr

不错谢谢分享

haoxuan

不错谢谢分享

vista228

大佬这个列表选择无效file:///C:/Users/vista/Desktop/111.png

paulpipi

非常牛的程序，感谢分享