autokludge

; draws chamfer of given length between two edges
; adapted from Lee_Mac post at
;https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-available-for-angle-between-two-lines/m-p/3241256/highlight/true#M300565
(defun c:oddcham ( / _SelectIf e1 e2 f in l1 l2 s1 s2 )

    (defun _SelectIf ( msg pred )
        (
            (lambda ( f / e )
                (while
                    (progn (setvar 'ERRNO 0) (setq e (car (entsel msg)))

autokludge

Imports System
Sub main()
	' @autokludge 2021
	
	Dim oTG As TransientGeometry = ThisApplication.TransientGeometry

	Dim assembly_doc As AssemblyDocument = ThisDoc.Document
	Dim assembly_component_def = assembly_doc.ComponentDefinition

	Dim template_doc_name = "test-guggis-master.ipt"

autokludge

Sub Main 
  Dim asmDoc As AssemblyDocument = ThisApplication.ActiveDocument 
  
  'Iterate through all of the referenced documents
  For Each doc As Document In asmDoc.AllReferencedDocuments 
      'update the components 
  If doc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
    AddLengthParameter(doc) 
  End If
  Next 

autokludge

(defun c:LabelRec (/ ActDoc CurSpace Ht ss cnt Ent EntData VerPoints tmpEnt Wid Len Pt Str tmpText tmpDist1 tmpDist2)
    ; original version as posted didn't work
    ; originally found at https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-that-dimensions-a-rectangle/td-p/4556923
    ; Label rectangles with length and width in middle of them.
    (vl-load-com)
    (setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
    (if (= (getvar "cvport") 1)
        (setq CurSpace (vla-get-PaperSpace ActDoc))
        (setq CurSpace (vla-get-ModelSpace ActDoc))
    )

autokludge

' Set a reference to the active document
Dim oDoc As Document = ThisDoc.Document
Dim oSelectSet As SelectSet = oDoc.SelectSet

'Are things selected?
If oSelectSet.Count < 1 Then
	MsgBox("Select drawing line first", MsgBoxStyle.OkOnly, "Error")
	Return
End If

autokludge

Dim oDrawDoc As DrawingDocument = ThisDrawing.Document
Dim oSheet As Sheet
Dim oSheets As Sheets
'Dim oView As DrawingView
Dim oViews As DrawingViews
Dim oSizeStr As String
Dim oSize As Double

oSizeStr = InputBox("Enter Desired Size", "Size", "")
If Not IsNumeric(oSizeStr) Then

autokludge

{
    "sublimelinter": "load-save",
    "sublimelinter_executable_map":
    {
        "php": "C:/php/php.exe",
        "javascript" : "C:/Program Files/nodejs/node.exe",
        "css" : "C:/Program Files/nodejs/node.exe"
    },

    "jshint_options":

autokludge

// ==UserScript==
// @name       Youtube Resize
// @namespace  http://speilberg0.github.com
// @version    0.2
// @description  make wide youtube full width
// @match           http*://www.youtube.com/watch*
// @copyright  2012+, Speilberg0
// ==/UserScript==
st = document.createElement('style');
st.textContent = '#watch7-container.watch-medium #watch7-video-container {padding-left :0 !important;}\

autokludge

{
	"auto_complete": true,
	"bold_folder_labels": true,
	"close_windows_when_empty": false,
	"color_scheme": "Packages/Dayle Rees Color Schemes/LastNight.tmTheme",
	"default_line_ending": "unix",
	"detect_indentation": false,
	"detect_slow_plugins": false,
	"disable_tab_abbreviations": true,
	"draw_white_space": "all",

autokludge

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
	<key>comment</key>
	<string>http://chriskempson.com</string>
	<key>name</key>
	<string>Tomorrow Night</string>
	<key>settings</key>
	<array>