<*** 最新修正 dng6版 非常實用的 鼠標角度切換 繪圖 ***>
本帖最后由 lee50310 于 2023-12-2 18:54 编辑<*** 非常實用的鼠標角度切換 ***>
請重新下載 最新修正版 dngˊ6 (已修正 :點選角度值 與 抓取角度 之 弳度值未一致 )修正日期:2023/12/02
修正版 dng5 (已修正 :點選角度值 轉換 錯誤值 ) 修正日期:2023/12/02
修正版 dng4 (已修正 :列表选择无效 ) 修正日期:2023/12/01
執行指令:dng
1.選擇物體 切換鼠標角度或 <空白處 左擊鼠鍵 後 鼠標旁出現選單 請點選角度> (或右擊鼠鍵也會有選單)
2.滑鼠切換物體角度可方便在有角度的物體上繪圖
ps .切回正鼠標角度 可選 水平或垂直 線物體或 角度點選 0度 即可
<部分程式>
可將自己常用的角度設置在此函數中 (自行修改)
;;-------------------------------------------------------------------------
(defun 2p-ang()
(if (= sel nil) (setq sel 0));角度值初设 0
(setq mymenu(strcat "\n 请点选 或 输入角度值 <" (itoa sel) ">:"))
(initget "0 30 45 60 135 225 315")
(setq ang(read (getkword mymenu )))
(if (= ang nil)(setq ang sel )(setq sel ang))
)
;;------------------------------------------------------------------------
本帖最后由 lee50310 于 2023-12-4 22:58 编辑
vista228 发表于 2023-12-1 21:15
大佬这个列表选择无效
已修正
請重新下載修正版 dngˊ6
或 用文字編輯器 修改 dng3版 程式中此行
(initget "0 45 135 225 315")
(setq ang(read (getkword (strcat "\n 請點選 或 輸入角度值 <" (itoa sel) ">:") )))
將上行中的 "度" 去除 修正後存檔即可 修正如下:
(initget "0 45 135 225 315")
(setq ang(read (getkword (strcat "\n 請點選 或 輸入角度值 <" (itoa sel) ">:") )))
本帖最后由 lee50310 于 2023-12-2 14:50 编辑
guosheyang 发表于 2023-12-2 11:40
lee50310 朋友你好！ 测试了下你的代码 我设置45度时 最后画出的线发觉不是45度是58.31008度 ...
感謝發現問題, 已修正
請重新下載
最新修正版 dngˊ6 (已修正 :點選角度值 與 抓取角度 之 弳度值未一致 )修正日期:2023/12/02 lee50310 朋友你好！ 测试了下你的代码 我设置45度时 最后画出的线发觉不是45度是58.31008度 这个 不知道是我的系统设置原因 还是啥 请问你那里测试是否是对头的 谢谢！ 差点就看懂了 感谢楼主分享好工具 虽然不常用到这种操作，还是先收藏，感谢楼主分享 好用，感谢大佬分享 不错谢谢分享
不错谢谢分享 本帖最后由 vista228 于 2023-12-1 21:20 编辑
大佬这个列表选择无效file:///C:/Users/vista/Desktop/111.png 非常牛的程序，感谢分享